VBA Vlookup用于2个工作簿并将过滤后的数据复制到新工作表

Question

我需要有关下面的VBA代码的帮助，我正在尝试执行vlookup，然后过滤数据并复制过滤后的数据，然后粘贴到活动工作簿中的新工作表。见下面的代码。

Sub NAAgingPaste()

    ActiveWindow.ScrollColumn = 2

    Dim colm_1 As String
    colm_1 = "T1"
    Range(colm_1).Select
    ActiveCell.FormulaR1C1 = "vlookup"

    Dim colm_2 As String
    colm_2 = "T2"
    Range(colm_2).Select
    Columns("S:S").EntireColumn.AutoFit
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4

    Range(colm_2).Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-16], 20180418AgingInvoiceTest.csv!C1, 1, FALSE)"
    Range(colm_2).Select
    Selection.Copy


    Dim LR As Long
    LR = ActiveSheet.UsedRange.Rows.Count
    Range("T2").AutoFill Destination:=Range("T2:T" & LR)

    Dim colm_3 As String
    colm_3 = ("Invoice Aging Upsert_04_17_2018-17_55_37_success.xlsx")
    myRange = "A1:T"


    Range(myRange).AutoFilter Field:=20, Criteria1:="=#N/A" _
        , Operator:=xlOr, Criteria2:="=#N/A"

    Dim colm_4 As Range
    colm_4 = "A1"

    Range(colm_4).Select
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    Range(colm_4).Select
    ActiveSheet.Paste

    Application.CutCopyMode = False
    ChDir "C:\Users\RRF - 113\Downloads"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\RRF - 113\Downloads\todelete2018#.csv", FileFormat:=xlCSV, _
        CreateBackup:=False

End Sub