Сравнение двух диапазонов на несовпадение - VBA

Формулировка задачи:

Подскажите пожалуйста, как организовать поиск на несовпадение? На первом листе таблицу надо сравнить с таблицей на втором листе. Если найдены несовпадения, добавить не совпавшее значение в таблицу на первом листе. То есть если во второй таблице находится такое значение, которого нет в первой, необходимо добавить его в первую таблицу. У меня как-то криво все вышло =(

Решение задачи: «Сравнение двух диапазонов на несовпадение»

textual
                            Листинг программы 
                        

                                For Each v In r2
        For Each w In r1
            If v = w Then GoTo 1
        Next
        i = i + 1: Sheets(1).Cells(i, 3) = v
1
    Next
                        