Sub SıfırBakiyeliHesaplarıSİL()
 Dim wb As Workbook
 Set wb = ThisWorkbook
 Dim tbl As ListObject
 Set tbl = ActiveSheet.ListObjects(1)
 Dim dvrg As Range
   
    With tbl
        If .ShowAutoFilter Then
            If .AutoFilter.FilterMode Then .AutoFilter.ShowAllData
        End If
        .Range.AutoFilter 7, "0,00"
        On Error Resume Next
            Set dvrg = tbl.DataBodyRange.SpecialCells(xlCellTypeVisible).Delete
        On Error GoTo 0
        .AutoFilter.ShowAllData
    End With
    
  ActiveSheet.ListObjects("Tablo4").Range.AutoFilter Field:=7
  Range("B2").Select
End Sub