Подстановка формул

[metotron]

Коллеги, добрый день
Есть макрос, который собирает из всех файлов в папке данные на заданный лист (файлы естественно не открывает) с отступом по строкам = 10 (т.е. заполнение листа начинается с ячейки А10 а не с А1. Все таблицы (собираемые из файлов) имеют фиксированное число столбиков
Стоит следующая задача (точнее 2):
1.в некоторых столбцах вместо полученных значений вставить следующую формулу: Пример для столбика "D" строки 15
=если(а15<>0,с15/b15,с15-в16)
Т.е. макрос должен пробегаться по заданным столбикам до момента пока строки не закончатся и выкидывать из ячейки значение и подставлять формулу для расчета (именно формулу, чтобы она потом сама считала,а не результат расчета)
Столбцы заранее определены, формула одинаковая для всех столбцов

2.отчистка пустых строк. Ее я почти решил (благодаря этому форуму) - макрос чистит все строки у которых в столбце А отсутствует значение, кроме самой последней - он ее почему то оставляет
код
Sub Main()
Dim i As Long: Application.ScreenUpdating = False: On Error Resume Next
i = Cells(Rows.Count, 2).End(xlUp).Row
Range("A4:A" & i).SpecialCells(xlCellTypeConstants ).EntireRow.Hidden = True
Range("A4:A" & i).SpecialCells(xlCellTypeVisible). EntireRow.Delete
Rows.Hidden = False: i = Cells(Rows.Count, 2).End(xlUp).Row
End Sub

Заранее спасибо

[IgorGO]

1.
Range("D1:D" & Cells(Rows.Count, 4).End(xlUp).Row).FormulaR1C1 = "=IF(RC[-3]<>0,RC[-1]/RC[-2],RC[-1]-R[1]C[-2])"
может только не с D1 надо начинать, а чуть позже

2.
i = Cells(Rows.Count, 2).End(xlUp).Row
в последней строке во второй колонке, видимо, тоже пусто, поэтому и не попала строка в диапазон.
посмотрите с какой колонки появляются данные ее номер и впишите вместо 2.

[metotron]

Сообщение от IgorGO

i = Cells(Rows.Count, 2).End(xlUp).Row
в последней строке во второй колонке, видимо, тоже пусто, поэтому и не попала строка в диапазон.
посмотрите с какой колонки появляются данные ее номер и впишите вместо 2.

да точно, вы правы...блин что-то я сам не заметил балбес

осталась первая задача с формулой