The easiest solution would be to check your print driver's capabilities and
see if it will support 2 UP printing (2 pages per sheet).  If it has a post
script driver, it should be able to do this.

Jerome

Can you deal with a macro?

This macro will move rows 50 to 100 up to E1:H50 and repeat to end of data in
the four original columns.

Leaves a blank row between each set of 50 rows.

Sub Move_Sets4_8()
Dim iSource As Long
Dim iTarget As Long
   iSource = 1
   iTarget = 1
   Do
       Cells(iSource, "A").Resize(50, 4).Cut _
       Destination:=Cells(iTarget, "A")
       Cells(iSource + 50, "A").Resize(50, 4).Cut _
       Destination:=Cells(iTarget, "E")
       iSource = iSource + 100
       iTarget = iTarget + 51
   Loop Until IsEmpty(Cells(iSource, "A"))
End Sub

Gord Dibben Excel MVP