Макрос для копирования данных SPECIFI C в шаблон и сохранения их в виде файла TXT

Question

У меня есть макрос для копирования данных на основе определенных фильтров и вставки их в шаблон.

Столбец J для копирования в Столбец A.
Столбец C для копирования в Столбец B.
Столбец D будет скопирован в столбец E.
Столбец H будет скопирован в столбец F.

Sub DS()

    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$O$5000").AutoFilter Field:=12, Criteria1:="PENDING"
    ActiveWindow.SmallScroll Down:=-12
    ActiveSheet.Range("$A$1:$O$5000").AutoFilter Field:=10, Criteria1:="U3R"
    ActiveWindow.SmallScroll Down:=-36
    Windows("Transfers 2020 - Roy.xlsm").Activate
    Range("J469:J537").Select
    Selection.Copy
    Windows("template2.xlsx").Activate
    Range("A1").Select
    ActiveSheet.Paste
    Windows("Transfers 2020 - Roy.xlsm").Activate
    ActiveWindow.SmallScroll Down:=-15
    Range("C469:C537").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("template2.xlsx").Activate
    Range("B1").Select
    ActiveSheet.Paste
    Windows("Transfers 2020 - Roy.xlsm").Activate
    ActiveWindow.SmallScroll Down:=-15
    Range("D469:D537").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("template2.xlsx").Activate
    Range("E1").Select
    ActiveSheet.Paste
    Range("F2:J2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("F3:J18").Select
    ActiveSheet.Paste
    Range("C1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=CONCAT(RC[2],RC[-1],RC[-2],2262020)"
    Range("C1").Select
    Selection.Copy
    Range("C1:C18").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1:L19").Select
    Application.CutCopyMode = False
    Selection.ClearFormats
    Range("C7").Select
    ChDir "H:\A\Roy\B\DS"
    ActiveWorkbook.SaveAs Filename:= _
        "H:\A\Roy\B\DS\DS 2.26.2020.txt", FileFormat _
        :=xlText, CreateBackup:=False
    ActiveWindow.Close
End Sub

Вопрос 1: Для критериев "PENDING" и "U3R" я хочу, чтобы он был go по всему диапазону и ищите «В ОЖИДАНИИ».

Вопрос 2: Я хочу добавить условие ИЛИ с помощью «U3R». Например. «U3R» ИЛИ «U2R»

Вопрос 3: Я хочу выбрать только те ячейки, которые остались после применения вышеуказанных фильтров. Какие изменения я должен внести в это? «Диапазон (« J469: J537 »). Выберите«

Заранее спасибо!