Macro that copies every 600 rows and paste data in new spreadsheet

Hi Bealey, welcome to the forum.

The following macro should move your data to sheet2 as requested.

Sub movedata()
Dim lastrow As Long, i As Long, c As Long
lastrow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
c = 1

Application.ScreenUpdating = False
For i = 1 To lastrow Step 600
    With Sheets("Sheet2")
        .Range(.Cells(1, c), .Cells(600, c + 1)).Value = _
        Sheets("Sheet1").Range("A" & i & ":B" & i + 599).Value
    End With
    c = c + 2
Next i
Application.ScreenUpdating = True
End Sub

Hope it helps!