For Each Next loop unexpectedly skipping some entries [duplicate]

Answer 1

I had a similar issue when I was trying to delete certain rows. The way I overcame it was by iterating through the loop several times using the following:

For c = 1 To 100
    Dim d As Long: d = 1
    With Sheets("Sheet")
        For e = 22 To nLastRow Step 1
            If .Range("G" & e) = "" Or .Range("I" & e) = "" Then
                .Range("G" & e).EntireRow.Delete
                .Range("I" & e).EntireRow.Delete
                d = d + 1
            End If
        Next
    End With
    c = c + 1
Next

So, basically if you incorporate the outer for loop from my code into your code, it should work.