Копирование отфильтрованного диапазона ячеек из одного листа в последний ряд другого

Question

Я пытаюсь отфильтровать диапазон данных (используя «Да» из столбца L) на 1 листе («2. Выберите формы для исследования») и скопировать данные в последнюю строку другого листа («3. Рабочий лист ").Я использую код ниже.Пока что код фильтрует данные на первом листе, но данные не копируются на второй лист.

Заранее благодарим за любую помощь.

 Sub FilterAndCopy2()

    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual


    Dim LastRow As Long, LastRow2 As Long
    Dim TARGetSheet As Worksheet, TKSheet As Worksheet

    Set TARGetSheet = Sheets("2. Select Study-Specific Forms") 'Set sheet where filtered data is
    Set TKSheet = Sheets("3. Worksheet") ' Set Sheet name to copy data to

    LastRow = TARGetSheet.Range("L" & Rows.Count).End(xlUp).Row ' Determine the lastrow of the data to copy
    LastRow2 = TKSheet.Range("A" & Rows.Count).End(xlUp).Row + 1 ' Determine the next empty row in order to paste the data


    With TARGetSheet
        .AutoFilterMode = False

        With .Range("G7", "L" & LastRow)
        .AutoFilter
        .AutoFilter Field:=6, Criteria1:="Yes"
        End With
    End With

     TARGetSheet.Range("G7", "L" & LastRow).Copy
     TKSheet.Range("A" & LastRow2).PasteSpecial (xlPasteAll)

    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic

    End Sub