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

[eto]

не думаю, что в данном случае что-то зависит от "куска цикла" который далее, т.к. даже в пустом примере у меня получается тот же косяк..
хелп, плиз

про полгода звучит не очень жизнеутверждающе ))

[EducatedFool]

В строке ActiveCell.FormulaR1C1 = "=RC[-4]/R[" & (i) & "]C7*RC[-1]*R[" & (i) & "]C4"

надо было убрать квадратные скобки вокруг (i)
(поскольку Вы задаёте не относительные ссылки, а абсолютные)

Sub Макрос10()
    Sheets("вводная").Rows("10:12").Copy    'копирование первых строк оценочной таблицы

    Sheets("данные").Activate: Dim ЯчейкаДляВставки As Range
    Set ЯчейкаДляВставки = Cells(Rows.Count, "A").End(xlUp).Offset(3)

    ЯчейкаДляВставки.PasteSpecial    'вставка
    ЯчейкаДляВставки.PasteSpecial xlPasteColumnWidths
    ЯчейкаДляВставки.EntireRow.Resize(3).Hidden = False     'отобразить скрытое

    i = ЯчейкаДляВставки.Row    'i=номер строки
    ЯчейкаДляВставки.Offset(2, 6).FormulaR1C1 = "=RC[-4]/R" & i & "C7*RC[-1]*R" & i & "C4"
End Sub

PS: На будущее - выкладывайте файлы в формате Excel 2003
Впервые вижу, чтобы к сообщению прикрепляли пустой файл

[eto]

о, счастье есть! спасибо!

попробую теперь кое-где навести красоту, да и работать быстрее станет

в следующий раз обязательно 2003, ок