Not sure how you want the pages to be laid out but have a try with
this code which puts 1-52 and 53-104 side by side on one page.

Sort your original first on last names then run the macro.

Sub Move_Sets_PBreak()
'pbreak inserted
Dim iSource As Long
Dim iTarget As Long
Dim i As Long

iSource = 1
iTarget = 1
Application.ScreenUpdating = False
Do
Cells(iSource, "A").Resize(52, 7).Cut _
Destination:=Cells(iTarget, "A")
Cells(iSource + 52, "A").Resize(52, 7).Cut _
Destination:=Cells(iTarget, "H")

iSource = iSource + 104
iTarget = iTarget + 52

Loop Until IsEmpty(Cells(iSource, "A"))

For i = 53 To Cells(Rows.Count, "A").End(xlUp).Row Step 52
Cells(i, 1).Select
ActiveSheet.HPageBreaks.Add Befo=ActiveCell
Next i
Application.ScreenUpdating = True
End Sub


Gord



On Wed, 13 Jun 2012 16:37:46 +0000, Atochabsh
wrote:


I have a data sheet with nearly 9000 "rows" of data. Those rows have 7
columns of data. The first column is last names. I need to keep the
data in alphabetical order. But since we print this data in book form,
I'd like to save paper by creating two columns of this data on one piece
of paper. So far there are 52 rows per page. How can I transfer this
data into two sets of data per page? keeping it in alphabetical order.
In the past we have copy and pasted, but it takes a very long time to do
that with this much data.

Thank you,

Atochabsh