VBA To Separate One Long Row Data Into Multiple Rows Of Fixed Columns

[snb]

Use:

Sub M_snb()
    For j = 1 To Cells(1, Columns.Count).End(xlToLeft).Column Step 6
      Cells(j \ 6 + 2, 1).Resize(, 6) = Cells(1, j).Resize(, 6).Value
    Next
End Sub