---  
Вот так - практически мгновенно:  
 
Sub Силычу()  
Dim rng, out, i, Пусто  
Dim Колонка1, Колонка2  
Set rng = Range(Cells(3, 1), Cells(1500, 1))  
Колонка1 = rng  
Колонка2 = rng.Offset(0, 5)  
Пусто = True  
' Накопить  
With rng.Cells(1, 1)  
For Each v In Колонка1  
i = i + 1  
If v = "" Then  
If Колонка2(i, 1) <= 0 Then  
If Пусто Then  
Set out = .Offset(i - 1)  
Пусто = False  
Else  
Set out = Union(out, .Offset(i - 1))  
End If  
End If  
End If  
Next  
End With  
' Скрыть  
With Application  
.Calculation = xlCalculationManual  
.ScreenUpdating = False  
out.EntireRow.Hidden = True  
.Calculation = xlCalculationAutomatic  
.EnableEvents = True  
End With  
End Sub  
 
Комментарии:  
1. Количество медленных обращений VBA -> Excel сокращено за счет того, что диапазоны с условиями скопированы в массивы VBA и там уже анализируются.    
2. Медленное скрытие строк сделано за один раз: сначала с помощью Union() определили скрывемый диапазон, а затем одним действием скрыли все строки.  
3. Использование With rng.Cells(1, 1) позволило быстрее обращаться к ячейкам скрывемого диапазона с помощью .Offset(i - 1)  
 
---  
ZVI

Я бы еще вместо If v = "" Then  
If Колонка2(i, 1) <= 0 Then  
записал бы If v = "" And Колонка2(i, 1) <= 0 Then  
Но это на любителя, хотя пару операторов в цикле убирает.  
 
И еще. Мне проверять лень, что работает быстрее, но почему бы не навесить реальный автофильтр?  
   Range("A3:E1500").Select  
   Selection.AutoFilter  
   Selection.AutoFilter Field:=1, Criteria1:="<>"  
   Selection.AutoFilter Field:=6, Criteria1:="<=0", Operator:=xlAnd

---  
Комментарий по замене фрагмента кода:  
 
If a = "" Then  
If b <= 0  
'...  
End If  
End If  
 
на:  
 
If a = "" And b <= 0 Then ...  
'...  
End If  
 
Второй вариант конечно же синтаксически лучше, но работает он примерно в 1.5 раза дольше, чем первый.  
 
Совет применить автофильтр совершено правильный.  
Это если к вопросу подходить творчески.  
Но, с другой стороны, мы не знаем, что там за данные.  
И если, например, 1 и 2 строки пустые, а с 3-й строки начинаются данные, то автофильтр станет в 3-ю строку данных и ее саму уже не отфильтрует.  
 
Полагаю, что у Силыча теперь достаточно информации для размышления.  
---  
ZVI

т.е. не использовать запись макрорекордера с ее selection.autofilter, а указать диапазон по-мужски прямо, и добавить в начало пустую строку(или непустую)

насколько я понимаю, сначала показываются все непустые строки, а потом среди этих непустых выбираются меньшие либо равные нулю..

Конечно, условие для автофильтра я записал с ошибкой.  
Автофильтр оставляет видимыми строки соотбетствующие условию. Стало быть надо:  
Selection.AutoFilter Field:=1, Criteria1:="<>"  
Selection.AutoFilter Field:=6, Criteria1:=">0", Operator:=xlAnd  
Оставить непустые и больше 0 -> пустые и меньше нуля будут скрыты.  
И... Игорь прав.  
Когда скрываем пустые, то скроются и больше, и меньше нуля, т.е. скроется больше строк чем нужно.  
Стало быть только циклом в вба.

а как насчет расширенного автофильтра?  
http://www.planetaexcel.ru/tip.php?aid=48

Огромное Спасибо всем откликнувшимся. Воспользовался вариантом предложенным ZVI. Вариант с использованием автофильтра не проходит. так как не все пустые строки первого столбца нужно скрывать, а только те, у которых третий столбец не пустой, а в шестом зачение 0 или меньше.До макроса использовал вариант с формулами ЕСЛИ И в отдельном столбце и автофильтром на значение (0 или 1), но макрос имхо удобней.

> Если я применю автофильтр в макросе, то оператор цикла ФОР будет перебирать только видимые записи (строки)?    
 
Нет. Проверяйте свойство rows(i).hidden или используйте цикл по видимым ячейкам, например  
Dim c As Range  
For Each c In [A2:A10].SpecialCells(xlCellTypeVisible)
Однако, метод SpecialCells имеет ограничение в версиях XL до 2007 включительно: он возвращает диапазон не более 8192 прямоугольных областей. То есть если столбец таблицы имеет более 16384 ячеек, надо обрабатывать его кусками по 16384 ячейки.  
 
Или загружайте всю таблицу в массив и обрабатывайте средствами VBA.

{quote}{login=Казанский}  
Или загружайте всю таблицу в массив и обрабатывайте средствами VBA.{/post}{/quote}  
 
Спасибо, понял... У меня макрос работает с 5 большими таблицами, и если загружать эти таблицы в массивы, и работать средствами VBA - придется много править (уж много условий с ссылками на таблицы).  
Скажите, а если сделать так:  
Я применю автофильтр, выделю видимые данные, и вставлю их в отдельный лист (созданный специально для вычислений). Так у меня получится таблица только с нужными мне строками (Или же я смогу скопировать не более 8192 прямоугольных областей (у меня ексель 2003)?  
В таком случае в макросе мне надо поменять только вот это Set ShU = Sheets("Услуги") на, скажем Set ShU = Sheets("Услуги_для_макроса")

i.s.o  
> Или же я смогу скопировать не более 8192 прямоугольных областей (у меня ексель 2003)?  
Не знаю как в 2003, а в 2007 Вы НЕ сможете скопировать диапазон с наложенным фильтром, если в нем более 8192 отфильтрованных областей - ошибка "Невозможно создать или использовать ссылку на диапазон данных...".  
 
слэн  
В 2007 и ранее расширенный фильтр может копировать отобранные данные только на этот лист. Интересно - в 2010 сняли это ограничение?

Вот попробовал сделать образец...  
И ещё я не знаю, как в макросе выделить отфильтрованые записи...  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>