Hi, I need to transpose data multiple times from row to colum for each set of 26 items.

The following code works for one set, but I need to set this for all other following sets.

Sub Transpose()

Dim rng As Range

Dim i As Long

Dim j As Long 

Set rng = Cells (Rows.Count, 26) . End(xlUp)

j = 1 

For i = 1 To rng.Row Step 26

Cells(j, "J") . Resize(6, 26). Value = _

Application.Transpose(Cells(i, "B"). Resize (26, 6))

j = j + 1

Next i 

End Sub

Thanks in advance!

When you write 6 rows of data, why then increment j only by 1? .-)

Andreas.