Антон, огромное спасибо! То, что нужно.
Я мог бы обыграть используя скрипт по скрытию строк, но он сильно замедляет работу, а про ваш метод я и не догадался.

Возникла проблема с сохранением листа в новый файл. На листе используется фильтр, при переносе все, что ниже фильтра переносится неправильно. Как это можно исправить!? Мне нужно сохранить точную копию листа только без формул.
В данном скрипте вопрос наверное только в .Cells.Value = .Cells.Value, но если указывать точный диапазон(.[A1:213].Value), то все копируется с формулами.

Огромное спасибо! Теперь понял, сначала и не додумал о чем это вы. Все работает   .

Помогите пожалуйста, требуется чтобы нумерация происходила только на первом листе. При использовании  With Sheets("Sheet1"  все равно нумерация происходит и на Sheets2 и Sheets3.

Появилась необходимость исключить ручной труд и заватоматизировать.  
Требуется на листре - наличие значение в F, H, J ЕСЛИ(ИЛИ(НАЛИЧИЕ!F3>0;НАЛИЧИЕ!H3>0;НАЛИЧИЕ!J3>0);НАЛИЧИЕ!B3;"").  
На листе - инв.-1 (то что хотелосьбы виде) - пример того что хотелосьбы увидеть. На каждой старница должно быть суммирование количества наименований.  
Проблема в том что обычным перебором остаются пустые строки и если через vba удалять их, то все смещается - суммирование и т.д. и приходится долго работать ручками чтобы все поправить.