Выделение не совпадающих строк в листах Excel - VB

Формулировка задачи:

Добрый вечер! Есть книга Excel в нем 2 листа с одинаковым кол-во столбцов и различным кол-вом строк. Нужно из 1 листа по первым 4 столбцам сравнить значения с первыми 4 столбцами 2 листа.
Если все значения совпадают то окрасить зеленым цветом строку, иначе закрасить строку красным цветом. Покопался по просторам интернета нашел различные примеры, у меня только получилось найти совпадающие значения и окрасить их в зеленый цвет.
Не могу понять как правильно в цикле пройтись по всем ячейкам в строке и отметить их красным цветом при не совпадении. Вот код который у меня сейчас есть.
Заранее спасибо!

Sub test11()
Dim Lr1&, Lr2&
Dim i&, j&
Dim Sh1 As Worksheet, Sh2 As Worksheet
Set Sh1 = Workbooks("Kniga.xlsm").Sheets("Лист1")
Set Sh2 = Workbooks("Kniga.xlsm").Sheets("Лист2")
    Application.ScreenUpdating = False
    Lr1 = Sh1.Range("A1").CurrentRegion.Rows.Count
    Lr2 = Sh2.Range("A1").CurrentRegion.Rows.Count
    With Sh1
        For i = 2 To Lr1
            For j = 2 To Lr2
                If Len(.Cells(i, "A")) Then
                    If .Cells(i, "A") = Sh2.Cells(j, "A") Then
                        If .Cells(i, "B") = Sh2.Cells(j, "B") Then
                            If .Cells(i, "C") = Sh2.Cells(j, "C") Then
                                If .Cells(i, "D") = Sh2.Cells(j, "D") Then
                                        Sh2.Rows(j).Interior.ColorIndex = 4
                                End If
                            End If
                        End If
                    End If
                Else: Exit Sub
                End If
            Next j
        Next i
    End With
    Application.ScreenUpdating = True
End Sub

Решение задачи: «Выделение не совпадающих строк в листах Excel»

textual
                            Листинг программы 
                        

                            Finally:
    XlRfl True

Exit Sub
ErrTrap:
    MsgBox Err.Number & " " & Err.Description
    GoTo Finally
End Sub

                        