Уважаемый Vikttur! улучшенная версия,макроса Elena666 Macro3 и ранее высланный макрос- макрос Baggy777 решает ту проблему,что вы указали:
Sub Macro3()
Dim LastRow1 As Long, LastRow2 As Long, Rng1 As Range, Rng2 As Range
LastRow1 = Cells(Rows.Count, 1).End(xlUp).Row
Set Rng1 = Sheets("Лист2").Range(Cells(LastRow1, 1), Cells(LastRow1, 4))
LastRow2 = Cells(Rows.Count, 9).End(xlUp).Row
Set Rng2 = Sheets("Лист2").Range(Cells(LastRow2, 9), Cells(LastRow2, 13))
For i = 1 To 4
If Rng1(i) <> Rng2(i) Then
Rng1(i).Interior.ColorIndex = 3
Cells(LastRow1, 6).Value = "Не верно"
Exit Sub
End If
If Rng1(i) = Rng2(i) Then
m = m + 1
If m = 4 Then
Cells(LastRow1, 6).Value = "Верно"
End If
End If
Next i
End Sub