Dim Tbl As ListObject
Set Tbl = ActiveSheet.ListObjects(1)
ActiveSheet.ListObjects("Tablo4").Range.AutoFilter Field:=7, Criteria1:= _
"0,00"
Tbl.DataBodyRange.SpecialCells(xlCellTypeVisible).Delete
ActiveSheet.ListObjects("Tablo4").Range.AutoFilter Field:=7
Sıfır bakiyeleri sil makronuzu aşağıdaki ile değiştirin