Transpose data in single column into 4 columns

Hello,

I have data in a single column and would like to transpose it into a row for every 4 rows. I have about 7000 rows in the 1 column.

I'd like to go from
A
B
C
D
E
F
G
H
I
J etc (I have about 7000 rows)

into

A B C D
E F G H
I J K L etc.


I used this macro but it stops after around 30 rows.

Thank you in advance!

Sub test()
Dim rng As Range, m As Integer, c As Range
Columns("c:E").Delete
m = 4
Set rng = Range(Range("a2"), Range("a2").End(xlDown))
Set c = Range("a2")
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