One way. You could also do with a loop within the loop
Sub transposeem()
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row Step 3
Cells(i, 1).Resize(3).Copy
Cells(i, 2).PasteSpecial Paste:=xlPasteAll, Transpose:=True
Next i
Columns(1).Delete
Columns(1).SpecialCells(xlCellTypeBlanks).EntireRo w.Delete
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Hellomoto" wrote in message
...
I have a column of data that repeats every 10 rows. that is, the data type
is repeated every ten rows. I want to reorganize the data in that column
into
10 columns (one column for each row). How can i accomplish this?

example: I want to distribute column A:
column A
date1
name1
age1
date2
name2
age2
etc...

into separate columns:

Column A Column B Column C ...etc
date1 name1 age1
date2 name2 age2

Thank you in advance