Briljiant....Thank you sooooo much. and it is a lot easier than VBA.

You'll need to delete colA after you copy/PasteValues if you want the
data in A:E as asked!

Actually, a VBA solution is as easy as this...


Sub TransposeData()
Dim vData, n&, j&, k&, r&
vData = ActiveSheet.UsedRange
ReDim vDataout(1 To UBound(vData) / 5, 1 To 5)
r = 1
For n = LBound(vData) To UBound(vData) Step 5
j = 1
For k = 0 To 4
vDataout(r, j) = vData(n + k, 1): j = j + 1
Next 'k
r = r + 1
Next 'n
ActiveSheet.UsedRange.ClearContents
Cells(1, 1).Resize(UBound(vDataout), UBound(vDataout, 2)) = vDataout
ActiveSheet.UsedRange.EntireColumn.AutoFit
End Sub

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion