Sub Oszlopba()
    Dim ter As Range, sor As Long, CV As Object
    
    Range("A1").Select  '******************
    Set ter = Selection.CurrentRegion
    sor = 1
    
    For Each CV In ter
        CV.Copy Cells(sor, "G")  '***************
        sor = sor + 1
    Next
End Sub

Ez a makró az A1 cellában kezdődő táblázatból készít 1 oszlopot a G oszlopba. Csillagokat tettem két sor végére, ahol változtathatsz. Az elsőnél a táblázat bal felső celláját állíthatod át, a másodiknál a kigyűjtés oszlopát.