Copy Data from Column to block... snake style!

Hi guys,

im pretty much a newbie in VBA programming and i got stuck with something i just cant handle, so I need urgent help.
Here's the situation:

I get a column of data and I want to transform it into a block of definable width. (with a message box - i got that to work at least). The idea is that the program copies the data cell by cell untill the end width of the block is reached, the jumps to the next line and continues copying backwards... and then repeat till all the data in the original column is gone through - like a snake.

kinda like this (example for width= 4 and 14 values in the original column)

1 2 3 4
8 7 6 5
9 10 11 12
14 13

With my (very narrow knowledge) I get to the end of the first row using this:

Sub Test01()
'
Dim i_end As Integer
Dim i As Integer

i_end = InputBox("Anzahl der Blockspalten eingeben:")

MsgBox ("i_end = " & i_end)

For i = 1 To i_end
Cells(1, i).Value = Cells(i, 1).Value

Next i

End Sub


But I have no idea how to work in the rest of the requirements. Please help me!!


Thanks people!

Karl