problem with macro in a repetitive task

Use your mouse to highlight this column of values, then run this macro:

Sub TransposeGroups()
Dim Grp As Long
Dim Rw As Long
Dim RNG As Range

Set RNG = Selection.SpecialCells(xlConstants)
Rw = RNG.Cells(1).Row

    For Grp = 2 To RNG.Areas.Count
        With RNG.Areas(Grp)
            .Copy Cells(Rw, Columns.Count).End(xlToLeft).Offset(, 1)
            .Clear
        End With
    Next Grp

End Sub

As per your example, it uses the blank cells in between each group to note specific "groups" (called AREAS) and copies them one at a time next to the first "group" in your selection.

Sub snb()
  For Each ar In Columns(1).SpecialCells(2).Areas
    If ar.Cells(1).Row > 1 Then Cells(1, Columns.Count).End(xlToLeft).Offset(, 1).Resize(ar.Rows.Count) = ar.Value
    ar.clearcontents
  Next
End Sub

Are the data in column A ?