Ich kenne Deine Umgebung,Deine Dateistruktur oder die Zusammensetzung Deines Arrays nicht und verlasse mich daher voll auf den Titel und meine Interpretation Deines Beitrags.

Wenn Du in einen gefilterten Bereich ein (zweidimensionales) Array schreiben willst, musst Du die Areas beachten.

Hier mal ein vereinfachtes Praxisbeispiel:

Ausgangstabelle:

Quellcode:

Sub Test01()

    Dim arr(1 To 3, 1 To 1) As Variant
    Dim rng                 As Excel.Range
    Dim rngInsect           As Excel.Range
    Dim i                   As Long
    
    arr(1, 1) = "x"
    arr(2, 1) = "xx"
    arr(3, 1) = "xxx"
    
    Set rng = ThisWorkbook.Worksheets(1).Range("A1:A10")
    
    rng.AutoFilter Field:=1, Criteria1:="0"
    
    Set rngInsect = Intersect(rng, rng.Offset(1, 0), rng.SpecialCells(xlCellTypeVisible))
    
    If Not rngInsect Is Nothing Then
    
        For i = 1 To rngInsect.Areas.Count
            rngInsect.Areas(i).Cells(1, 1).Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr
        Next i
        
    End If
    
    rng.AutoFilter
    
    
End Sub

Ergebnis:

Wie gesagt, einfach eben.

Keine Fehlerbehandlung oder sonstig zu beachteneden Schnick-Schnack der zu Laufzeitfehlern führen kann.

Das kann jeder selbst besser.

Klar soweit?