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

[Оленька______87]

здравствуйте, подскажите пожалуйста, как записать формулу в ячейку. мне нужно просуммировать диапазон у которого может меняться как строка так и столбец.
пишу так:
Worksheets("лист3").Cells(2 + i, N + 1).Value = Application.Sum(Worksheets("лист3") .Range(Worksheets("лист3").Cells(2 + i, 1),Worksheets("лист3") .Cells(2 + i, N)))
не получается...
нужно что бы в ячейку записывался не результат а сама формула.

[EducatedFool]

Есть 2 варианта:

Sub test1()
    N = 5
    For i = 1 To 10
        With Worksheets("лист3")
            АдресДиапазона = .Range(.Cells(2 + i, 1), .Cells(2 + i, N)).Address
            .Cells(2 + i, N + 1) = "=sum(" & АдресДиапазона & ")"
        End With
    Next i
End Sub

Sub test2()
    N = 5
    Worksheets("лист3").Cells(3, N + 1).Resize(10) = "=sum(RC1:RC" & N & ")"
End Sub

В первом формула записывается в ячейки по одной,
во втором - одна формула попадает сразу во все ячейки.

[Оленька______87]

в первом варианте выдает ошибку на строчке

АдресДиапазона = .Range(.Cells(2 + i, 1), .Cells(2 + i, N)).Address

а второй это не то, мне нужно чтобы столбцы можно было менять..