Arra nem találtam módot, hogy az autofilter módosulására automatikusan másolja a látható sorokat. Indítani kell az Autofilteres makrót.

Sub Autofilteres()
    Dim usor As Integer
    
    Sheets("Munka2").Range("A2:A" & Range("A2").End(xlDown).Row) = ""
    usor = Range("A1").End(xlDown).Row
    Range("A1:A" & usor).SpecialCells(xlCellTypeVisible).Copy Sheets("Munka2").Range("A1")
End Sub