The following code will copy range A1:A200 and paste it to B1:GS1.
The groups of 4 or cut/pasted to the range B1:E50.
So make sure those 2 ranges don't contain data, otherwise create a new sheet.
After the code has done it's work delete column A to get the desired result.
Here is the code:
Dim x, y As Integer
x = 2
y = 1
x = x + 4
y = y + 1
Range(Cells(1, x), Cells(1, x + 3)).Cut _
Range("B" & y)
Loop Until y = 50
To use the code:
Alt+F11 > top menu in new window > insert > module > paste code in big white field.
Back at excel at the correct sheet hit Alt+F8 and double-click TransposeIn4.