набираете в массив1 значения которые нужно удалить
для каждого елемента массива1 делаете следующие
находите все позиции этого элемента в просматриваемом столбце
выделяете все необходимые строки
удаляете их

dim List2Delete() as integer
dim allPositions() as integer
dim i as integer, j as integer

'занесли в массив
For i = 1 to количество значений которые необходимо удалить
List2Delete(i) = елемент который необходимо удалить (cells(ряд, колонка).value - где находится i-ое значение)
next i

поиск всех позиций
For i = 1 to ubound(List2Delete) ' для каждого елемента в массиве значений на удаление
For j = 1 to количество елементов в просматриваемом массиве
if cells(ряд, колонка).value = list2delete(i) ' если елемент в массиве совпадает с искомым, то
then
redim preserve allpositions(1 to x)
allpositions(x) = j 'записываем этот массив в список строк на удаление
x = x +1
end if
next j
Next i

for i = 1 to ubound(allpostions)
row(allpositions(i)).delete
next i