Re-arrange data in one column into multiple columns

Hello AdamParker,

Here is a macro to create your columns in rows of 52.

Sub MakeIntoColumns()

  Dim C As Long
  Dim Col As Variant
  Dim LastRow As Long
  Dim StartRow As Long
  Dim R As Long
  Dim Rng As Range
  
    Col = "A"
    StartRow = 1
    LastRow = Cells(Rows.Count, Col).End(xlUp).Row
    LastRow = IIf(LastRow < StartRow, StartRow, LastRow)
    
      Application.ScreenUpdating = False
        For R = StartRow To LastRow Step 52
          C = C + 1
          Set Rng = Range(Cells(R, Col), Cells(R + 51, Col))
          Rng.Copy Destination:=Cells(StartRow, C)
          If C > 1 Then Rng.Clear
        Next R
      Application.ScreenUpdating = True
      
End Sub

Sincerely,
Leith Ross