Sub Compare_A_B()
Application.ScreenUpdating = False
Dim i As Integer
Dim stroka1 As Integer: stroka1 =  2      ' номер первой строки
Dim stroka9 As Integer: stroka9 =  100    ' номер последней строки

For i = stroka1 To stroka9
    a0 = Range("A" & LTrim(Str(i))).Value      ' получим значение текущей строки, колонки "A"
    b0 = Range("B" & LTrim(Str(i))).Value      ' получим значение текущей строки, колонки "B"
    If a0 <> b0 Then
       r = r +  1 
       Range("D" & LTrim(Str(i))).Value = "ЗДЕСЬ НЕ РАВНО"
       ' или можно удалить текущую запись
       Rows(LTrim(Str(i)) & ":" & LTrim(Str(i))).Select
       Selection.Delete Shift:=xlUp
       stroka9 = stroka9 -  1 
    End If
Next
Application.ScreenUpdating = True
Exit Sub
Err0:
    Application.ScreenUpdating = True
    MsgBox Err.Description & vbCrLf & "на строке   " & Str(i)
End Sub