Ошибка цикла VBA в Excel при использовании автоматического фильтра

Question

У меня есть 2 листа в файле Excel. 1 = "Инструкция", где мои коды клиентов сохранены из A2 в рабочую таблицу 2 = Есть таблица, в которой мне нужно автоматически фильтровать столбец B на основе кодов клиентов в рабочем листе 1. Копироватьполную таблицу в новый лист Excel и сохраните ее в папке с настроенным именем

Ниже приведен код, который я написал.Однако в конце макроса есть ошибка, которую я не могу исправить, как показано ниже

Ошибка 1 ". Строки (" 1: 1 "). Выберите"

Ошибка 2 Этот макроспросто создает 1 файл и не работает в цикле и сохраняет

Ошибка 3 Иногда возникает ошибка, и t говорит, что не может сохранить файл

Sub ARSOA()

Dim varItemsToReplace As Variant
Dim varItem As Variant
Dim wksSource As Worksheet
Dim wksDest As Worksheet
Dim rngSource As Range
Dim rngSource2 As Range
Dim rngCell As Range

Set wksSource = Worksheets("Instruction")
Set wksDest = Worksheets("AR")

With wksSource
    Set rngSource = .Range("A2:A" & .Cells(.Rows.Count, "A").End(xlUp).Row)
End With

For Each rngCell In rngSource
    With wksDest
        .Rows("1:1").Select
         Selection.AutoFilter
         ActiveSheet.Range("$A$1:$L$136").AutoFilter Field:=2, Criteria1:=rngCell.Value
         Cells.Select
         Selection.Copy
         Workbooks.Add
         ActiveSheet.Paste
         Range("J3").Select
         ChDir "C:\Users\XXXX\Desktop\Automation\XXXX"
        ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\XXXX\Desktop\SOA\" & ActiveSheet.Range("C2").Value & " - " & ActiveSheet.Range("B2").Value & ".xlsx", FileFormat:= _
       xlOpenXMLWorkbook, CreateBackup:=False
    End With
   Next rngCell

  End Sub

Не могли бы вы помочь указать на ошибку