aşağıdaki makroyu dener misiniz?

Sub SilFiltreli()

Dim Syf As Worksheet

    Set Syf = ThisWorkbook.Worksheets("sayfa1")

    

    With Syf

    sonstr = Syf.Cells(Syf.Rows.Count, "h").End(xlUp).Row

    Syf.ListObjects("tablo5").Range.AutoFilter field:=7, Criteria1:="0,00"

    Set Rng = Syf.Range("A2:a" & sonstr).Rows.SpecialCells(xlCellTypeVisible)



    dz = Replace(Rng.Address, "$A$", "")

    dizi = Split(dz, ",")

        For x = UBound(dizi) To LBound(dizi) Step -1

            Syf.Range("A" & dizi(x)).EntireRow.Delete

        Next x

    Syf.ListObjects("tablo5").Range.AutoFilter field:=7

    End With



End Sub