maxxver, там ещё обновление экрана отключите, и возможно пересчёт можно отключить в начале и включить, когда все формулы уже на местах.
Только тогда .Value = .Value всему диапазону нужно сделать когда уже всё посчитано.

Ну тогда я уже больше не буду думать над другим вариантом макроса :)

maxxver, в формулу добавьте еслиошибка()
Т.е. если ошибка, то пусто, иначе результат формулы.

Нет, нельзя ничего не писать - так будет путаться отсутствие результата по отбору и отсутствие вообще такого файла/листа/критерия.
Нужно при ошибке так и писать: "Ошибка поиска данных".
Т.е. можно вообще ничего не менять :)

Я вот сейчас подумал - если в том самом первом варианте макроса на ВПР() заменить
$B:$I
на
$B$9:$I$25
То всё должно работать значительно быстрее :)
Но нужно знать количество данных.