yada aşağıdaki kodu deneyebilirsiniz

Sub KriterliSil()

    Dim tbl As ListObject

    Dim rng As Range



    Set tbl = ThisWorkbook.Worksheets("Vadeli Hesap").ListObjects("Vadeli_Hesap")



    ' Filter and delete all rows that have criteria

    With tbl.Range

        .AutoFilter

        .AutoFilter Field:=7, Criteria1:="0,00"



        ' Set the range for the filtered cells

        Set rng = .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)

        .AutoFilter ' Turn off the filter

        rng.Delete ' Delete the filtered cells

    End With

End Sub