удаление строк

[Dr.House69]

Добрый день! Прошу помочь с решением финальной проблемы с файлом)
Дан файл (в приложении есть пример). В нем существует проблема - при протягивании формулы невозможно предположить, сколько значений в итоге понадобится, поэтому на всякий случай формулы протягивают с запасом (пусть будет на 200 строк вниз). Ячейки, для которых нет входных данных, но формула протянута, выдают ошибку - их надо удалить, иначе не сработают другие макрос. Я пытался делать это в цикле, проверяя первые 2 столбца на наличие в них чего-либо, однако оказалось, что удаление строки в цикле не сработает. Выделение в цикле всех строк и последующее удаление этого тоже не работает (выделяется только последняя). Каким образом удалить те строки, где в первых 2 столбцах нет никаких значений?

[Казанский]

Можете дополнить формулу, для Е1

=ЕСЛИОШИБКА(C1/D1;"")

[27102014]

Если есть макрос, который делает какие-то действия с данными, то логичнее добавить в макрос написание формулы и протягивание ее вниз на нужное количество строк с данными

lLastRow = Cells(Rows.Count, 1).End(xlUp).Row ' счетчик номера последней заполненной строки
Range("E1").Formula = "=C1/D1"'написание формулы
Range("E1").AutoFill Destination:=Range("E1:E" & lLastRow) 'протягивание вниз