Применение формул

[swips]

Здравствуйте,
Помогите с решением проблемы. Есть Макрос:
Sub Base1()
Worksheets("ERQ").Activate
FinalRow = Range("A65536").End(xlUp).Row
Worksheets("Result").Activate
For I = 1 To 20
' Range("A" & I).Formula = "=ЕСЛИОШИБКА(ЕСЛИ(ПОИСКПОЗ(ERQ! A:A; ERP!A:A;0);;0);ERQ!A1)"
' Range("B" & I).Formula = "=ЕСЛИОШИБКА(ЕСЛИ(ПОИСКПОЗ(ERQ!A:A; ERP!A:A;0);;0);ERQ!B1)"
Next I
End Sub

При попытке ввода формул, возникает ошибка. Хотя сама формула при вводе руками срабатывает.
Вообще то я впервые имею дело с VB. Так что если есть вариант упрощения данной процедуры, то подскажите пожалуйста.
Смысл: подсчитать количество строк в первом листе. и на листе "Result" применить столько же раз формулу.

[EducatedFool]

Попробуйте

Sub Base1()
    Worksheets("ERQ").Activate
    FinalRow = Range("A65536").End(xlUp).Row
    With Worksheets("Result")
        For I = 1 To 20
            .Range("A" & I).FormulaLocal = "=ЕСЛИОШИБКА(ЕСЛИ(ПОИСКПОЗ(ERQ!A:A; ERP!A:A;0);;0);ERQ!A1)"
            .Range("B" & I).FormulaLocal = "=ЕСЛИОШИБКА(ЕСЛИ(ПОИСКПОЗ(ERQ!A:A; ERP!A:A;0);;0);ERQ!B1)"
        Next I
    End With
End Sub

Если надо записать формулы во множество ячеек, то это можно сделать и одной строкой кода (без цикла)
Но в этом случае сначала надо составить подходящую формулу.

[swips]

спасибо. работает