Help with macro
 

I have files with rows of data (columns A to D) that have
to be printed. The data in column A is in numerical
order. It is possible that some files will have under 100
rows per sheet as well as larger ones with 800+.

If printed as it is the data only takes up half the
portrait page but an awful lot of pages.

What I want to do is use the whole page thus cutting down
the amount of paper by half.

For example:
A B C D
1
2
3
4
5
6
7
8
9
10
....
800

I want it to look like:

Page1
A B C D F G H I
1 63
2 64
3 65
4 66
... ..
62 124

Page2
A B C D F G H I
125 187
126 188
127 189
128 190
129 191
... ..
186 248

etc, etc, etc.

Row 1 is repeated at the top of every sheet and there are
62 rows per sheet.
Any help gratefully received.

Thanks in advance.

Gareth