hasherfrog
Я бы вставил еще строчку
Код:

Rows(I).Select
Selection.Delete Shift:=xlUp
nTotal = nTotal - 1
GoTo again
Не могу въехать почему Rows.Count прямо в цикле использовать нельзя?
Ginger
Самый простой тупой

и медленный вариант - принимать strTarget$ в данной процедуре параметром. Соответственно вызывать эту процедуру для каждого элемента вашего массива.