Sub Макрос2()
'
' Макрос2 Макрос
'
LastRow = Cells(Rows.Count, 2).End(xlUp).Row
aaa = Range("A1:B" & LastRow)

a1 = aaa(UBound(aaa), 1)
a2 = aaa(UBound(aaa), 2)
a3 = a1 & "|" & a2
b = UBound(aaa)

For n = UBound(aaa) - 1 To LBound(aaa) Step -1
    If aaa(n, 1) <> "" Then
        If aaa(n, 1) & "|" & aaa(n, 2) <> a3 Then
            a1 = aaa(n, 1)
            a2 = aaa(n, 2)
            a3 = a1 & "|" & a2
        Else
            Rows(n + 1 & ":" & b - 1).Delete Shift:=xlUp
        End If
        b = n
    End If
Next

End Sub