'Сравнивает два столбца С и D и выделяет отличия в D в сводной
Sub Парсинг_Сравнить_два_столбца_CD()
Dim Rg1 As Range, Rg2 As Range, Sh As Worksheet, i&, Arr1, Arr2, kRow&, nRow&, col1 As New Collection
    nRow = 3: Set Sh = ActiveSheet
Set Rg1 = Sh.Range("C1"): Set Rg1 = Range(Rg1, Sh.Cells(Rows.Count, Rg1.Column).End(xlUp)) 'Сравнивает два столбца С и D и выделяет отличия в D
Set Rg2 = Sh.Range("D1"): Set Rg2 = Range(Rg2, Sh.Cells(Rows.Count, Rg2.Column).End(xlUp)) 'Сравнивает два столбца С и D и выделяет отличия в D
Arr1 = Rg1.Value: Arr2 = Rg2.Value
kRow = Application.WorksheetFunction.Min(UBound(Arr1), UBound(Arr2))
    For i = nRow To kRow
    If Arr1(i, 1) <> Arr2(i, 1) Then col1.Add i
    Next
Set Rg1 = Nothing
    For i = 1 To col1.Count
If Rg1 Is Nothing Then Set Rg1 = Sh.Cells(col1(i), Rg2.Column) Else Set Rg1 = Union(Sh.Cells(col1(i), Rg2.Column), Rg1)
    Next
Rg1.Select
End Sub