Movendo dados filtrados para uma matriz de variável variante

Question

Atualmente, estou tentando automatizar uma tarefa manual. Eu filtrado meus dados e isso funciona bem se eu copiar e colar o intervalo visível em outra folha. Eu estou tentando gravar os dados visíveis em uma matriz de variável variante. Eu quero manter isso na memória e escrever isso em um intervalo. Toda vez que faço isso, eu recebo #NAs. Seus pensamentos e conselhos são apreciados.

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