@atoykan abeyin kodunu alttaki gibi yaparsanız bence daha iyi olur.
Yani kod başka sayfada çalışırsa hata olur.

Sub SýfýrBakiyeliHesaplarýSÝL()

Dim Tbl As ListObject

Application.ScreenUpdating = False

With ThisWorkbook.Worksheets("Vadeli Hesap")

    Set Tbl = .ListObjects(1)

    .ListObjects("Tablo4").Range.AutoFilter Field:=7, Criteria1:="0,00"

    If WorksheetFunction.CountIf(.Range("G2:G" & Rows.Count), "0") > 0 Then Tbl.DataBodyRange.SpecialCells(xlCellTypeVisible).Delete

    .ListObjects("Tablo4").Range.AutoFilter Field:=7

    .Range("B2").Select

End With

Application.ScreenUpdating = True

End Sub