try this. Then just delete col a
Sub transposeem()
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 5
x = Cells(Rows.Count, 2).End(xlUp).Row + 1
Cells(i, 1).Resize(5, 1).Copy
Cells(x, 2).PasteSpecial Paste:=xlPasteAll, Transpose:=True
Next i
End Sub

--
Don Guillett
SalesAid Software

"gbeard" wrote in message
m...
What is the easiest way of moving data from from a1:a5 to a1:e5? I have
hundreds of entries down column A and would like to get them listed in
a1:d500. Each entry fills 5 rows in column A and I'd like them to fill
the
first 5 columns (a to e) in consecutive rows (1-500).

--
Gary Beard