Verschieben von gefilterten Daten in ein variables Array der Variante

Ich versuche gerade, eine manuelle Aufgabe zu automatisieren. Ich habe meine Daten gefiltert und dies funktioniert einwandfrei, wenn ich den sichtbaren Bereich in ein anderes Blatt kopiere und einfüge. Ich versuche, die sichtbaren Daten in ein variables Array der Variante zu schreiben. Ich möchte dies in Erinnerung behalten und dann in einen Bereich schreiben. Jedes Mal, wenn ich das tue, erhalte ich #NAs. Ihre Gedanken und Ratschläge geschätzt.

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