sergey_yarem,
Алгоритм без макросов может быть такой:
Удаляете Лист3.
Создаете копию листа Лист1 в конце (правой клавишей мыши на ярлыке листа и не забыть поставить галочку "Создать копию").
Переименовываете новый лист в Лист3.
Выделяете фильтром все ошибки и нули.
Удаляете видимые строки (у некоторых, как у меня, для этого необходимо перед удалением выделить только видимые).
Снимаете фильтр.
У вас в формуле ВПР для первого диапазона ссылка "ползет". Чтобы этого не было, вместо

=ВПР(A1:A76;Лист2!$A$1:$E$286; 5;0)
сделайте

=ВПР(A$1:A$76;Лист2!$A$1:$E$286; 5;0)
и протяните уже после этого.