Copy and paste a column from one sheet to another

[most]

I can't get the code below to work, anybody can see what the issue is? Or have a better way to solve it?

What I want the script to do is to copy data from a column to another sheet in a another workbook. Multiple times, so I need to reuse code to make it sustainable.
As you can see in the example below the first line is different between the workbooks, 2 vs 7.

Sub CopyPasteColumn()'Global settings
  AWB = ActiveWorkbook.Name
  DGW = "TheOtherSide"
'Column 1
FromSheet = "Old Customer"
ToSheet = "New Customer"
FromColumn = 3
ToColumn = 4
    LastRow = Cells(Rows.count, FromColumn).End(xlUp).row
    Application.Workbooks(AWB).Worksheets(FromSheet).Range(Cells(2, FromColumn), Cells(LastRow, FromColumn)).Copy _
     Application.Workbooks(DGW).Worksheets(ToSheet).Range(Cells(7, ToColumn), Cells(LastRow, ToColumn))
'Column 2
FromSheet = "Old Customer"
ToSheet = "New Customer"
FromColumn = 2
ToColumn = 1
    LastRow = Cells(Rows.count, FromColumn).End(xlUp).row
    Application.Workbooks(AWB).Worksheets(FromSheet).Range(Cells(2, FromColumn), Cells(LastRow, FromColumn)).Copy _
     Application.Workbooks(DGW).Worksheets(ToSheet).Range(Cells(7, ToColumn), Cells(LastRow + 5, ToColumn))
'Column 3
'...And so on...


End Sub

 

[Fluff]

Does this do what you need for the first column?

Sub most()
   Dim FromWs As Worksheet, ToWs As Worksheet
   
   Set FromWs = ActiveWorkbook.Sheets("Old Customer")
   Set ToWs = Workbooks("TheOtherSide.xlsm").Sheets("New Customer")
'Column 1
FromColumn = 3
ToColumn = 4
   lastrow = FromWs.Cells(Rows.Count, FromColumn).End(xlUp).Row
   FromWs.Range(Cells(2, FromColumn), Cells(lastrow, FromColumn)).Copy _
      ToWs.Cells(7, ToColumn)

End Sub

 

[most]

Somebody should name a road "Fluff", THANKS!

 

[Fluff]

Ok we can now expand that like

Sub most()
   Dim FromWs As Worksheet, ToWs As Worksheet
   Dim Ary As Variant
   Dim i As Long, Lrw As Long
   
   Set FromWs = ActiveWorkbook.Sheets("Old Customer")
   Set ToWs = Workbooks("TheOtherSide.xlsm").Sheets("New Customer")
   Ary = Array(3, 4, 2, 1)
   
   For i = 0 To UBound(Ary) Step 2
      Lrw = FromWs.Cells(Rows.Count, Ary(i)).End(xlUp).Row
      FromWs.Range(Cells(2, Ary(i)), Cells(Lrw, Ary(i))).Copy _
         ToWs.Cells(7, Ary(i + 1))
   Next i
End Sub

Which should do the first two columns