EntireRow.Delete Excel hängt sich auf

Sub aufraeumen()
Dim letzteZeile As Integer
'Application.ScreenUpdating = False
'Application.Calculation = xlCalculationManual
letzteZeile = ActiveSheet.Cells(1048576, 1).End(xlUp).Row
For i = 1 To letzteZeile
If ThisWorkbook.Worksheets(1).Range("A" & i).Value = ThisWorkbook.Worksheets(1).Range("A" & i +  _
1).Value And ThisWorkbook.Worksheets(1).Range("E" & i + 1).Value = 0 Then
ThisWorkbook.Worksheets(1).Rows(i + 1).EntireRow.Delete
i = i - 1
End If
Next i
'Application.Calculation = xlCalculationAutomatic
'Application.ScreenUpdating = True
End Sub