Вставка формулы

[evdss]

Посоветуйте пожалуйста, что не так?
Хочу вставить формулу в 1 столбец начиная с 8 строки до конца. Вставляются как данные, а не как формула, т.е. решетка в столбце.
Sub Макрос1()
Формула = "=Строка()-8"
With Sheets("Данные")
For i = 9 To 100
Cells(i, 1) = Формула
Next i
End With
End Sub

[IgorGO]

Sub Макрос1()
Формула = "=Строка()-8"
For i = 9 To 100
Cells(i, 1).formula = Формула
Next i
End Sub

или

Sub Макрос1()
For i = 9 To 100
Cells(i, 1)= i -8
Next i
End Sub

[kuklp]

Не совсем так.

Sub Макрос1(): [a9:a100].FormulaLocal = "=Строка()-8":End Sub

Иначе выдаст #ИМЯ?
или

Sub Макрос1(): [a9:a100].Formula = "=Row()-8": End Sub

так сработает на всех локалях.

[evdss]

спасибо большое