Может вам стоит поменять стратегию?
Например:
1. Диапазон ячеек, где ищете и куда пишете прочитать в переменную Variant - получаете двумерный массив (v = xlWS.Range("A1:C10).Value);
2. В цикле по массиву ищете значение и вносите данные;
3. Заполненный массив присваиваете диапазону.

Этот метод в любом случае быстрее.