Theresa - -
This tested fine for me based on what you want, except that I made it for 50 rows instead of 60, for no other reason than 60 rows of data were too small for me to squint at on a sheet late Sunday night (how's that for a scientific rationale).
Fifty is a more intuitive number anyway, which places 100 records neatly on a sheet. If you really want 60, then modify the code to change the 50's to 60, and the 49's to 59.
Finally, to keep things uncomplicated, I placed the line
v.PrintPreview
so you can see if the code works the way you want, without wasting a bunch of printed paper to test it. Just substitute that line with
v.PrintOut
if the macro passes muster.
Sub PrintColumnPairs()
With Application
.ScreenUpdating = False
Dim u As String, v As Worksheet, w As Long, x As Long, y As Long, z As Long
u = ActiveSheet.Name
Set v = Worksheets.Add
Sheets(u).Activate
z = Cells(Rows.Count, 1).End(xlUp).Row
y = 1: x = 1: w = 1
Do While y <= z
For w = 1 To 3 Step 2
Range(Cells(y, 1), Cells(y + 49, 2)).Copy
v.Paste v.Range(v.Cells(x, w), v.Cells(x + 49, w + 1))
y = y + 50
Next w
x = x + 50
v.Rows(x).PageBreak = xlManual
Loop
v.PrintPreview
.DisplayAlerts = False
v.Delete
.DisplayAlerts = True
.ScreenUpdating = True
End With
End Sub
