Excel макрос для сравнения таблица

Private Sub Find_Matches()
    Dim CompareRange As Range, x As Range, y As Range
    Set CompareRange = Worksheets(«Лист2»).Range(«B8:S295») ‘диапазон с которым сравнивают

        Application.ScreenUpdating = False
    Selection.Interior.ColorIndex = xlNone

        For Each y In CompareRange
        If Not IsEmpty(y) Then
           For Each x In Selection
               If InStr(1, x, y, vbTextCompare) > 0 Then x.Interior.Color = vbGreen
           Next x
        End If
    Next y

        Application.ScreenUpdating = True

        MsgBox «Данные проверены»
End Sub

В данном макросе выделяется первый проверяемый диапазон, в самом макросе прописывает диапазон ячеек, с которым нужно сравнить. Данный макрос также был взять из нета, часть понимаю, но углубленно нет т.к. в vba человек новый. Всем спасибо.

Option Explicit

Private Sub Find_MisMatches()
    Dim CompareRange As Range, x As Range, y As Range
    Set CompareRange = Worksheets(«Лист2»).Range(«B1:B12») ‘диапазон с которым сравнивают

        Application.ScreenUpdating = False
    Worksheets(«Лист1»).UsedRange.Interior.ColorIndex = xlNone

        ‘Вар1. Подсвечивает ячейки в диапазоне Worksheets(«Лист1»).Range(«D1:D12»)
    ‘если внутри строки из символов этой ячейки найдена хоть одно совпадение с ячейками из диапазона CampareRange
    For Each y In CompareRange
       ‘ Debug.Print y
        If Not IsEmpty(y) Then
        For Each x In Worksheets(«Лист1»).Range(«D1:D12»)
            If InStr(1, x, y, vbTextCompare) > 0 Then x.Interior.Color = vbGreen
        ‘Debug.Print x, y, InStr(1, x, y, vbTextCompare)
        Next x
        End If
    Next y

        Application.ScreenUpdating = True

            ‘Вар2. Подсвечивает ячейки в диапазоне Worksheets(«Лист1»).Range(«F1:F12»)
    ‘если ячейка из этого диапазона совпадает по значению с ЛЮБОЙ из ячеек из диапазона CompareRange
    For Each y In CompareRange

                If Not IsEmpty(y) Then
        For Each x In Worksheets(«Лист1»).Range(«F1:F12») ‘ циклом берем любую ячейку из диапазона CompareRange и сравниваем её значение с ячейкой в сравниваемом диапазоне Worksheets(«Лист1»).Range(«F1:F12»)
            If x = y Then x.Interior.Color = vbGreen
        Next x
        End If
    Next y

        ‘Вар3. Подсвечивает ячейки в диапазоне Worksheets(«Лист1»).Usedrange
    ‘если ячейка из диапазона в Листе 1 совпадает с ячейкой с таким же адресом из диапазона CompareRange

        Dim i As Integer, j As Integer  ‘ переменные для записи номеров строк и столбов в ячейках из дипазона Comparerange

        Set x = Worksheets(«Лист1»).UsedRange ‘ устанавливаем диапазон в котором надо подсветить совпадающие ячейки при сравнении с Comparerange

        For Each y In CompareRange

                If Not IsEmpty(y) Then
        i = y.Row ‘ записываем номер строки ячейки из Comparerange
        j = y.Column ‘записываем номер столбца ячейки из Comparerange
        If x(i, j) = y Then x(i, j).Interior.Color = vbGreen  ‘если данные в ячейке из сравниваемого диапазона на листе 1  совпадают с данными в ячейке из диапазона CampareRange с тем же номером строки и с тем же номер столбца, то подсвечиваем
        End If
    Next y

                    MsgBox «Данные проверены»
End Sub

Option Explicit

Private Sub Find_MisMatches()
    Dim CompareRange As Range, x As Range, y As Range, InitialSheet As Worksheet
    Dim i As Long, j As Long  ‘ переменные для записи номеров строк и столбов в ячейках из дипазона Comparerange

         Set InitialSheet = Worksheets(«Лист1») ‘ устанавливаем диапазон в котором надо подсветить совпадающие ячейки из листа 1 при сравнении с Comparerange. В данном случае выбирается диапазон со всеми когда-либо заполненными ячейками в Листе1
    Set CompareRange = Application.InputBox(«Укажите диапазон ячеек для сравнения», «Запрос данных», «B2:S10», Type:=8) ‘диапазон в листе 2 с которым сравнивают. В данном случае это все когда-либо заполненные ячейки в листе2

        Application.ScreenUpdating = False
    InitialSheet.UsedRange.Interior.ColorIndex = xlNone  ‘ очищаем заливку в  диапазоне где будем заливать совпадающие ячейки

        On Error Resume Next

            ‘Вар3. Подсвечивает ячейки в сравниваемом диапазоне , но только в тех ячейках ,
    ‘у которых тот же самый адрес , что и выбранном диаппазоне CompareRange

            ‘Если выбрано менее двух ячеек
     If CompareRange.Count = 1 Then
        MsgBox «Для отбора уникальных значений требуется указать более одной ячейки», vbInformation
        Exit Sub
     End If

          ‘если указаны только пустые ячейки вне рабочего диапазона
    If CompareRange Is Nothing Then
        MsgBox «Недостаточно данных для выбора значений», vbInformation
        Exit Sub
    End If

                ‘Запускаем цикл по каждой ячейке из Comparerange
    For Each y In CompareRange

                       i = y.Row ‘ записываем номер строки ячейки из Comparerange
        j = y.Column ‘записываем номер столбца ячейки из Comparerange

       10      If CStr(InitialSheet.Cells(i, j).Value) = CStr(CompareRange.Parent.Cells(i, j).Value) Then   ‘ здесь преобразовываем данные в ячейках в текстовый формат и сравниваем
        InitialSheet.Cells(i, j).Interior.Color = vbGreen ‘если данные в ячейке из сравниваемого диапазона на листе 1  совпадают с данными в ячейке из диапазона CompareRange с тем же номером строки и с тем же номер столбца, то подсвечиваем зеленым
      End If

            Next y
    MsgBox «Данные проверены»
End Sub