Memindahkan data yang difilter ke dalam array variabel varian

Saat ini saya mencoba mengotomatiskan tugas manual. Saya telah memfilter data saya dan ini berfungsi dengan baik jika saya menyalin dan menempelkan rentang yang terlihat ke lembar lain. Saya mencoba untuk menulis data yang terlihat ke dalam array variabel varian. Saya ingin menyimpan ini di memori dan daripada menulis ini ke kisaran. Setiap kali saya melakukan ini, saya mendapatkan #NAs. Pikiran dan saran Anda dihargai.

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