I need some help with a piece of code, or I need a good idea. I have a spreadsheet with two columns. Column A contains a series of author names, and B contains the titles to their books or articles. I have a piece of code that interweaves these columns into rows, as shown below. However, when I make a text file out of it to import to EndNote, I need a space between each author/title set. Ideally the code I have would be modified to add a space in the Excel file, so it would look like the example below.
I would greatly appreciate any help you folks can provide. Thank you.
Here is the code I referenced:
Sub Two_To_One() Application.ScreenUpdating = False Dim numRows As Integer Dim R As Long numRows = 1 For R = 2000 To 1 Step -1 ActiveSheet.Rows(R + 1).Resize(numRows).EntireRow.Insert Next R Range("B1").Select Selection.Insert Shift:=xlDown Columns("A:A").Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.Delete Shift:=xlToLeft Range("A1").Select Application.ScreenUpdating = True End Sub