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

[rxpsych]

Thank you snb. That worked perfectly. Everything copied below the first row exactly as it needed to be.

[arunreddy2004]

I have a similar problem as rxpsych even bigger as i have multiple such columns of patients data . But i dont know how to apply the code given here. can somebody explain the method of applying the code. Screenshots will be more helpful. Thanks in advance.