See if this works. You'll need to edit the code where shown to specify your csv file name.
Sub Import_CSV_Records60()
Dim destRange As Range
Dim csvWorkbook As Workbook
Dim lastRow As Long, row As Long, colOffset As Long
Set destRange = ActiveWorkbook.Sheets("Sheet1").Range("A1")
Set csvWorkbook = Workbooks.Open("C:\Path\To\CSV file.csv") 'EDIT THIS LINE
With csvWorkbook
lastRow = .Sheets(1).Cells(Rows.Count, "A").End(xlUp).row
colOffset = 0
For row = 1 To lastRow Step 60
.Sheets(1).Range("A" & row).Resize(60, 2).Copy destRange.Offset(0, colOffset)
colOffset = colOffset + 2
Next
End With
csvWorkbook.Close savechanges:=False
End Sub
Bookmarks