Перемещение отфильтрованных данных в массив переменных переменных

Question

В настоящее время я пытаюсь автоматизировать ручное задание. Я отфильтровал свои данные, и это прекрасно работает, если я копирую и вставляю видимый диапазон на другой лист. Я пытаюсь записать видимые данные в массив переменных переменных. Я хочу сохранить это в памяти, а затем записать это в диапазон. Каждый раз, когда я делаю это, я получаю #NAs. Ваши мысли и советы приветствуются.

Sub Derivatives()
    Application.ScreenUpdating = False
    Application.Calculation = xlAutomatic
    Application.DisplayAlerts = False

    Dim wb As Workbook, ws As Worksheet
    Dim lRow As Long
    Dim lRow1 As Long
    Dim Fields() As Variant
    Dim wb1 As Workbook

    Set wb = ThisWorkbook
    Set ws = wb.ActiveSheet

    lRow = Range("A" & Rows.Count).End(xlUp).Row

    With ws
        Range("$G$9:$I$22479").AutoFilter Field:=3, Criteria1:="TRUE"
        lRow1 = Range("G" & Rows.Count).End(xlUp).Row
        Fields = ws.Range("G9").CurrentRegion.SpecialCells(xlCellTypeVisible)
        ActiveSheet.ShowAllData
        Range("K9").CurrentRegion = Fields
    End With

    Application.ScreenUpdating = True
    Application.Calculation = xlAutomatic
    Application.DisplayAlerts = True
End Sub