Sub Мяу()
    Dim ar, oDic As Object, i&
    Set oDic = CreateObject("Scripting.Dictionary")
    With Sheets("Список ВП")
        ar = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 3).Value
    End With
    For i = 1 To UBound(ar)
        oDic.Item(ar(i, 1) & "|" & ar(i, 2) & "|" & ar(i, 3)) = oDic.Count
    Next
    Application.ScreenUpdating = False
    With Sheets("Выгрузка")
        ar = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 3).Value
        For i = 1 To UBound(ar)
            If Not oDic.exists(ar(i, 1) & "|" & ar(i, 2) & "|" & ar(i, 3)) Then
                .Cells(i, 1).Resize(, 3).Interior.Color = vbRed
            End If
        Next
    End With
    Application.ScreenUpdating = True
End Sub