zweiten wert vergleichen

bei nachstehendem code sollen zwei werte verglichen werden und wenn diese gleich sind einer gelöscht werden. bei ausführung macht der code dies allerdings nur, wenn dies in der letzten zéile steht. wenn zwischen den beiden werten ein anderer(nicht gleicher wert) steht wird der gleiche nicht gelöscht. kann mir einer weiterhelfen.
Auszug aus dem code...
Do Until ActiveCell.Value = ""
If ActiveCell.Value = ActiveCell.Offset(1, 0).Value And _
ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(1, 1).Value _
Then ActiveCell.EntireRow.Delete _
Else: ActiveCell.Offset(1, 0).Select
Loop