Hi,
Assuming your data ranges from B2 to E6, and that column G is empty :
Sub Macro1()
Dim i As Integer
Dim j As Integer
j = 2
For i = 2 To 6
Range("B" & i, "E" & i).Copy
Range("G" & j).Select
Selection.PasteSpecial Paste:=xlAll, Transpose:=True
j = j + 4
Next i
Application.CutCopyMode = False
Range("A1").Select
End Sub

HTH
Cheers
Carim