How do I loop through cutting n number of rows in a column to new columns?

[DTime]

Hello, I'm new to vba programming and I'm stuck...

How would I take a list of numbers in column A, and for every 5 rows cut and paste them to the top of the next available column until the list in the first column is empty?

Any help or examples would be greatly appreciated. I think i need a loop in a loop?

 

[steve the fish]

Hi. This wont be particularly quick but is hopefully easier to understand:

Set sh = Sheets("Sheet3") 'change sheetname to suit
Numrows = 5 'increment this number of rows
lr = sh.Range("A" & Rows.Count).End(xlUp).Row 'last row of data in column A
lr = WorksheetFunction.Ceiling(lr, Numrows) 'round up last row to nearest Numrows
a = 2 'paste into column 2 (B) to start

For i = Numrows To lr Step Numrows
    sh.Range(sh.Cells(i - Numrows + 1, 1), sh.Cells(i, 1)).Cut sh.Cells(1, a)
    a = a + 1
Next

 

[DTime]

Thank you, so much! But question, why is it necessary to Set the tab in excel? when I didn't it gave me an error 424. Could you reference a selected cell for example to start?

You mentioned it not being particularly quick? How could it be made faster? is there a better method of approach? Maybe look for certain criteria and then paste them? idk