Доброго времени суток.
Насколько я понял, упрощенно сформулировать Вашу проблему так: в столбец результата должны попасть значения, встречающиеся в первых двух столбцах, но не встречающиеся в третьем. Причем попасть в столбец результата единожды.
Sub NewV()
Dim CC As Range
Dim i As Long
i = 2
For Each CC In Range("G2:H20")
If Application.IsError(Application.Match(CC.Value, Range("I2:I20"), 0)) And _
Application.IsError(Application.Match(CC.Value, Range("J2:J" & i), 0)) Then
Range("J" & i).Value = CC.Value
i = i + 1
End If
Next CC
End Sub
У меня вот так получилось.