Move Specific Data From Row To Column?

Currently i hav list of info that is long like this.

A 1
B 2
C 3
D 4
E 5
F 6
G 7
H 8
I 9
J 10

How to move row to column example below. Because i want the data to be printed on an a4 paper which can fit around 3 row to save space . If i manually copy paste page by page it is too much.

A 1 D 4 G 7
B 2 E 5 H 8
C 3 F 6 I 9

===

Currently i have macro code which roughly does this.

A 1 B2
C3 D4
E5 F6
G7 H8
I9 J10

Sub test()
Dim rng As Range, m As Integer, c As Range
Columns("c:E").Delete
m = 2
Set rng = Range(Range("a1"), Range("a1").End(xlDown))
Set c = Range("a1")
Do While c <> ""
'MsgBox c.Address

Range(c, c.Offset(m - 1, 0)).Copy
Cells(Rows.Count, "c").End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
Set c = c.Offset(m, 0)
Loop
End Sub