Macro to convert 4 columns of data into rows, then repeat

I currently have an excel that lists all the data in columns but I'd like to move it into rows. For Example I have the following

A01 = Amber
A02 = Female
A03 = 23
A04 = Houston
A05 = David
A06 = Male
A07 = 25
A08 = Miami
A09 = Jen
A10 = Female
A11 = 25
A12 = San Francisco


But I'd like for it to be


B | C | D | E
______________________________________
Amber | Female | 23 | Houston
David | Male | 25 | Miami
Jen | Female | 25 | San Francisco


I realize I can transpose but there are thousands I'd have to do. Is there an easy macro to do this?

I've seen other macros but they didn't work because I need specifically 4 columns to data to move into a row, then start next group of 4....
Any information is greatly appreciate.

Put this first formula in B1, then copy across through E1.

=INDEX($A:$A, (ROW(A1)*4)+COLUMN(A1)-4)

Now copy those four cells down until you start seeing zeros.

Copy the resulting table, then do a Paste Special > Values.

---------- Post added at 05:20 PM ---------- Previous post was at 05:15 PM ----------

...and for chuckles, a macro that does the same thing:

Option Explicit

Sub TransposeReformat()
Dim LR As Long, Cols As Long

Cols = Application.InputBox("How many cells in each transposed group?", "Groups", 4, Type:=1)
If Cols = 0 Then Exit Sub

LR = Range("A" & Rows.Count).End(xlUp).Row

With Range("C1").Resize(Int(LR / Cols), Cols)
    .FormulaR1C1 = "=INDEX(C1, (ROW(RC[-2])*" & Cols & ")+COLUMN(RC[-2])-" & Cols & ")"
    .Value = .Value
End With

End Sub

With the formulas, you would copy, then Paste Special > Values somewhere else.