See if this works. If satisfied then simply delete columns a,b,c with the
last line.

Sub arrangeem()
For i = 1 To Cells(Rows.Count, "a").End(xlUp).Row Step 50
lc = Cells(1, "iv").End(xlToLeft).Column + 1
Cells(i, 1).Resize(50, 3).Copy Cells(1, lc)
Next i
'Columns("a:c").Delete
End Sub

--
Don Guillett
SalesAid Software

"Greg" wrote in message
...
I have a worksheet which is made up of three columns, I was wondering is
there a way to have a macro sort them into groups of 50 and have them go
into orders of

1 - 50 into columns a - c
51 - 100 columns e-g
101 - 150 columns i - k

I need it to count the rows and sort into how many pages necessary.

It is a dynamic worksheet but the most rows it will have is 1100


Is this possible?

Thanks in advance
Greg