|For a macro to keep track of where it is while deleting rows, it has to delete them from the bottom up.|
Before it can do that, it has to find the bottom of the range. The first part of this code first determines the longest column. The second part checks columns A and B for combinations of 0 and blanks, starting at the last row and moving up.
I hope that is what you were looking for.
'Find Last Row with Data, could be any Column A:F
For ColNum = 1 To 6
NxtLastRow = Cells(Rows.Count, ColNum).End(xlUp).Row
If NxtLastRow > LastRow Then LastRow = NxtLastRow
'Check Columns A:B for Combinations
For DelRow = LastRow To 1 Step -1
If (Cells(DelRow, 1) = 0 And Cells(DelRow, 2) = 0) Or _
(Cells(DelRow, 1) = "" And Cells(DelRow, 2) = "") Or _
(Cells(DelRow, 1) = 0 And Cells(DelRow, 2) = "") Or _
(Cells(DelRow, 1) = "" And Cells(DelRow, 2) = 0) Then
'Delete Row If Combination Found