Sub Test()
Dim iLastRow As Long
Dim i As Long

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To iLastRow Step 50
Cells(i, "A").Resize(50).Copy Cells(1, i \ 50 + 2)
Next i

End Sub

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

wrote in message
ups.com...
Hi, I have a list of 500 items in column A. I want to copy the first 50
to column

B1:B50, the next 50 to C1:C50 etc. Can someone show me how to do this
with a

simple macro?

Chuck