Sub mmm()
Dim i As Integer
Dim iLastRow As Integer
iLastRow = Cells(Rows.Count, 5).End(xlUp).Row

For i = iLastRow To 6 Step -1
    If Cells(i, 2).Value = 0 And Cells(i, 5).Value = 0 Then
    Rows(i).Delete
    End If
    Next i
   
End Sub

[LEFT]Sub mmm() 
 Set Sht = Application.ActiveWorkbook.ActiveSheet 
 Dim i As Integer 
 i = 6 
For i = 6 To 1400 
If Cells(i, 2).Value = 0 And Cells(i, 5).Value = 0 Then 
Call Rows(i).Delete 

Else 
i = i + 1 
End If 
Next 
End Sub[/LEFT]