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.
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
Thanks in advance!