Sub Sýfýrdeðerlisatýrlarýsil()



    Dim i As Long, son As Long

    Application.ScreenUpdating = False

    With ThisWorkbook.Sheets("Sayfa1")

        son = .ListObjects("Tablo5").Range.Columns(7).Cells.Find("*", _

                                SearchOrder:=xlByRows, LookIn:=xlValues, SearchDirection:=xlPrevious).Row

        If son < 2 Then Exit Sub

        For i = son To 2 Step -1       

            If Len(Trim(.Cells(i, "H").Value)) > 0 And .Cells(i, "H").Value = 0 Then .Rows(i).EntireRow.Delete

        Next

    End With

    Application.ScreenUpdating = True

End Sub