Сравнение двух диапазонов и удаление совпадений

[Aniqa]

добрый день! помогите, если сможете, не очень прошаренной девушке)))
использую Excel 2003

такая проблема:
есть файл с двумя диапазонами данных на разных листах "новый" и "старый"
необходимо удалить в "новом" все данные, которые содержаться в "старом"
т.е. сравнить два диапазона и удалить совпадения
по поиску нашла предлагаемый макрос для решения этой задачи, но у меня при его запуске возникает ошибка run-time error '13' type mismatch. и вот не знаю, что делать)))
вдруг кто подскажет?

Sub DelDups_TwoLists()
Dim a, b, i As Long, j As Long
' Для ускорения работы макроса обновление экрана отключается.
Application.ScreenUpdating = False
With Sheets("НОВЫЙ")
a = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)).Value
End With
With Sheets("СТАРЫЙ")
b = .Range(.Cells(1, 2), .Cells(Rows.Count, 2).End(xlUp)).Value
End With
For i = UBound(a) To 2 Step -1
For j = 2 To UBound(b)
If a(i, 1) = b(j, 1) Then Sheets("НОВЫЙ").Rows(i).EntireRow.Delete
Next j, i
Application.ScreenUpdating = True
End Sub

[Казанский]

У Вас данные в 1 столбце, поэтому

b = .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp)).Value

[Aniqa]

о да, спасибо огромное! все получилось))

[Thorn]

Странно как могло получится, удаляются невсе ячейки колонки. Только что проверил на простом примере из двух столбцов:
1 и 1
2 и 3
3 и 2
5 и 4

В первом столбце цифра 1 и 5 остались нетронуты. Как быть...

[Казанский]

Автор кода, видимо, предполагал, что в первой строке находятся заголовки. Если без заголовков, то

For i = UBound(a) To 1 Step -1
For j = 1 To UBound(b)

Останется только 5, т.к. этого числа нет на листе "СТАРЫЙ".

[Thorn]

господин Казанский, сейчас всё действительно работает и как должно быть, у меня была аналогичная задачка только не с удалением а "пометкой" цветом отличных значений..