Sub TestGarder()
Application.ScreenUpdating = False
With Sheets("Test")
For i = .Range("AA" & .Rows.Count).End(xlUp).Row To 3 Step -1
If .Range("V" & i) = "" And .Range("W" & i) = "" And .Range("X" & i) = "" And .Range("Y" & i) = "" And .Range("Z" & i) = "" Then
.Range("AA" & i).EntireRow.Delete
End If
Next i
End With
'With Sheets("Page")
' For i = .Range("AA" & .Rows.Count).End(xlUp).Row To 3 Step -1
' If .Range("X" & i) <> .Range("Z" & i) Then
' .Range("AA" & i).EntireRow.Delete
' End If
' Next i
'End With
Application.ScreenUpdating = True
End Sub