Hi,

found this code and modify it but when running it get "run-time error 9, subscript out of range" and highlight this line:

Dim SourceWB As Workbook: Set SourceWB = Workbooks("EFT_DATA.xls")

Complete code:

Sub CopySource()
    Dim SourceWB As Workbook: Set SourceWB = Workbooks("EFT_DATA.xls")
    Dim TargetWB As Workbook: Set TargetWB = Workbooks("NCL EFT_SUMMARY.xlsm")
    Dim lr As Long: lr = SourceWB.Sheets("EFT_DATA").Cells(Rows.Count, "A").End(xlUp).Row - 1
    Dim lastr As Long: lastr = TargetWB.Sheets("EFT").Cells(Rows.Count, "A").End(xlUp).Row + 1
    
    SourceWB.Sheets("EFT_DATA").Range("AW1:AW" & lr).Copy Destination:=TargetWB.Sheets("EFT").Range("A4" & lastr)
    SourceWB.Sheets("EFT_DATA").Range("BO:BO" & lr).Copy Destination:=TargetWB.Sheets("EFT").Range("B4" & lastr)
    SourceWB.Sheets("EFT_DATA").Range("BB:B" & lr).Copy Destination:=TargetWB.Sheets("EFT").Range("C4" & lastr)
    SourceWB.Sheets("EFT_DATA").Range("AX:AX" & lr).Copy Destination:=TargetWB.Sheets("EFT").Range("D4" & lastr)
    SourceWB.Sheets("EFT_DATA").Range("X:X" & lr).Copy Destination:=TargetWB.Sheets("EFT").Range("E4" & lastr)
    
End Sub
thank you,