Edit vba to split values over 10 columns and required rows

[JNEWMAN]

Hi Forum
The attached script works really well but I would like it to load as 10 column's across and the rest of the value in required rows 10 across, i.e. if it was 1 to 50, then it would load numbers 1 to 10 in columns A1:J1, next 10 would be A2:J2 ect, hope this makes sense.

Sub Test2()

Dim rng             As Range
Dim y               As Long
Dim z               As Long
Dim i               As Long
Dim vArray

Set rng = Application.InputBox("Select a cell?", Type:=8)
y = InputBox("How many Units?")
z = InputBox("Start Number?")

ReDim vArray(1 To y)
vArray(1) = z
For i = LBound(vArray) + 1 To UBound(vArray)
    vArray(i) = vArray(i - 1) + 1
Next i

rng.Resize(y).Value = Application.Transpose(vArray)

End Sub

Thanks in advance
James