Parsing Data from One Column to Multiple Columns

TimStrickland 

Sub sort_into_columns()

Dim i As Long
Dim j As Long
Dim k As Long
Dim l As Long
Dim m As Long
Dim MaxRows As Long

Range("B:BB").Clear

m = Application.InputBox("How many columns are you going to fill?")

MaxRows = Range("A" & Rows.Count).End(xlUp).Row
j = 2
k = 1
For j = 2 To m + 1
For i = 1 To MaxRows / m

Cells(i, j).Value = Cells(k + l, 1).Value
k = k + m

Next i
k = 1
l = l + 1

Next j

End Sub

You can try these lines of code. After starting the macro you only have to enter the number of columns or the number of multiple rows for a single record respectively.