Easy way to transpose this info?

[Range]

I basically have info in html text format that I want to put into a table format.

So all of the data is in column A.

I need rows 1-13 to become transposed row 1.
I need rows 14-26 to become transposed row 2.
Etc...

 

[Rick Rothstein]

So all of the data is in column A.

I need rows 1-13 to become transposed row 1.
I need rows 14-26 to become transposed row 2.
Etc...

I think this macro will do what you want...

Sub TransposeRowsInGroupsOf13()
  Dim X As Long, LastRow As Long
  LastRow = Cells(Rows.Count, "A").End(xlUp).Row
  For X = 1 To LastRow Step 13
    Cells(X, "A").Resize(, 13).Value = WorksheetFunction.Transpose(Cells(X, "A").Resize(13))
  Next
  Columns("B").SpecialCells(xlBlanks).EntireRow.Delete
End Sub

 

[Range]

Thanks this worked a treat!