Önceki mesajda exit sub yazmışım ora değişti.Ve
eklendi.

Sub KapananHesabýSil()

    Dim Syf As Worksheet, sonstr As Long, i As Long

    Set Syf = ThisWorkbook.Worksheets("Vadeli Hesap")

    With Syf

        On Error Resume Next

       .ShowAllData

       On Error GoTo 0

       On Error GoTo son

       If WorksheetFunction.CountA(.Range("A2:A" & Rows.Count)) = 0 Then GoTo son

        Application.Calculation = xlCalculationManual

        sonstr = .Cells(.Rows.Count, "A").End(xlUp).Row

        If sonstr < 2 Then GoTo son

        For i = sonstr To 2 Step -1

            If Val(.Cells(i, "g").Value2) = 0 Then .Range("A" & i).EntireRow.Delete

        Next

    End With

son:

    Application.Calculation = xlCalculationAutomatic

End Sub