Help with looping a macro

Hi, jumpingoff,

maybe start opff with somehting like this:

Sub Transpose_re()
Dim lngLastRow As Long
Dim lngCounter As Long

Const clngNO_Col As Long = 13

lngLastRow = Cells(Rows.Count, "E").End(xlUp).Row
For lngCounter = 2 To lngLastRow Step clngNO_Col
  Range("D" & Cells(Rows.Count, "D").End(xlUp).Row + 1).Resize(clngNO_Col, 1).Value = _
      WorksheetFunction.transpose(Cells(lngCounter, "E").Resize(1, clngNO_Col))
Next lngCounter
End Sub

Ciao,
Holger