Сравнение столбцов в двух разных таблицах. При несовпадении выделять цветом

Sub a()
 
Dim wb, wba As Workbook, a As Boolean
Set wb = Workbooks("spravka1.csv")
Set wba = ActiveWorkbook
For Column = 1 To wba.ActiveSheet.UsedRange.Columns.Count
    operatorText = wba.ActiveSheet.Cells(4, Column)
    For columnOriginal = 1 To wb.ActiveSheet.UsedRange.Columns.Count
        If StrComp(wb.ActiveSheet.Cells(1, columnOriginal), operatorText, vbTextCompare) = 0 Then 
'если имена столбцов совпадает, то переходим сравнивать ячейки
           For cellLine = 10 To wba.ActiveSheet.UsedRange.Rows.Count
                operatorText1 = wba.ActiveSheet.Cells(cellLine, Column)
                a = 0
                For cellLineOriginal = 2 To wb.ActiveSheet.UsedRange.Rows.Count
                    If StrComp(wb.ActiveSheet.Cells(cellLineOriginal, columnOriginal), operatorText1, vbTextCompare) = 0 Then 
'если совпадение найдено, то запоминаем в "а"
                    a = 1
                    End If
                Next cellLineOriginal
                If a = 0 Then
                    wba.ActiveSheet.Cells(cellLine, Column).Interior.ColorIndex = 3 
'если совпадений не найдено, то выделяем ячейку красным
                End If
            Next cellLine
        End If
    Next columnOriginal
Next Column
End Sub