[Buzz-cp]

ps thx bravos & boz


Range("A1").Select
Do
First1 = ActiveCell.Value
Last1 = ActiveCell.Offset(0, 1).Value
First2 = ActiveCell.Offset(1, 0).Value
Last2 = ActiveCell.Offset(1, 1).Value
If First1 = First2 And Last1 = Last2 Then
ActiveCell.Offset(0, 0).Select
ActiveCell.EntireRow.Select
Selection.Delete Shift:=x1Up

Else: ActiveCell.Offset(1, 0).Select

End If
Loop Until IsEmpty(ActiveCell.Offset(1, 0))