The code below will transpose your grouped data to columns B:E. You can then manually delete column A, to shift all data to the left. Or you can remove the apostrophe in front of code line 11 to let the code remove it for you.
Here is the code:
Dim x, y As Integer
x = 1
y = 1
Range(Cells(x, "A"), Cells(x + 3, "A")).Copy
Range("B" & y).PasteSpecial Transpose:=True
x = x + 5
y = y + 1
Loop Until Cells(x, "A") = vbNullString
Application.CutCopyMode = False
Hopefully this will get you excited again!