Transpose data to columns from rows keeping unique data together

Alter if needed.

Sub test()
    Dim i As Long
    For i = 1 To Columns(1).SpecialCells(2).Areas.Count
        With Columns(1).SpecialCells(2).Areas(i)
            Cells(i, 3).Resize(, .Rows.Count).Value = _
            Application.Transpose(.Value)
        End With
    Next
    Cells(1, 5).Resize(i - 1).NumberFormat = "0"
    Columns("c:e").AutoFit
End Sub