organizing numbers

Assume your first column of Data is Column A, then

Option Explicit

Sub combo()
    Dim lr As Long, lc As Long, lra As Long
    lc = Cells(1, Columns.Count).End(xlToLeft).Column
    Dim i As Long
    
    Application.ScreenUpdating = False
    For i = 1 To lc
    lr = Cells(Rows.Count, i).End(xlUp).Row
    lra = Range("A" & Rows.Count).End(xlUp).Row
    Range(Cells(1, i), Cells(lr, i)).Copy Range("A" & lra + 1)
    Next i
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    MsgBox "complete"
End Sub