The macro below will do what you want.
In writing this macro I assumed the following:
Your data is in Columns A & B starting in A1.
Columns C:H, in Row 1, have the headers you want in the final product, just
as you listed them in your post.
This macro will list all of your data as you wanted, in Columns C:H,
underneath the headers.  It will then delete Columns A:B.
The final product is as you wanted and in Columns A:F.
HTH   Otto

Sub ReArrange()
   Dim FirstCell As Range
   Dim LastCell As Range
   Dim Dest As Range
   Dim c As Long
   Set FirstCell = Range("A1")
   Do Until FirstCell.Value = ""
       For c = 1 To 20
           If FirstCell.Offset(c).Value <> FirstCell.Value Then
               Set LastCell = FirstCell.Offset(c - 1)
               Set Dest = Range("C" & Rows.Count).End(xlUp).Offset(1)
               Exit For
           End If
       Next c
       Dest.Value = FirstCell.Value
       For c = 1 To Range(FirstCell, LastCell).Count
           Dest.Offset(, c).Value = FirstCell.Offset(c - 1, 1).Value
       Next c
       Set FirstCell = LastCell.Offset(1)
   Loop
   Columns("A:B").Delete
   MsgBox "Task has been completed."
End Sub