Проблема макросов и формул

[postrelll]

Здравствуйте, дорогие форумчане VBAшники. Появилась небольшая проблема - не знаю как можно с помощью макроса задавать конкретной ячейке формулу. Например, я в своем макросе делаю расчет процентов по формуле (Сумма затрат/Стоимость конкретной статьи расходов) %. Я делаю цикл, в котором нужной ячейке присваиваю значение этой формулы. Но, я использую строковый тип данных для этого, макрос ругается на Run-Time error 1004. То есть я не могу в макросе присвоить ячейке значение являюшееся формулой, например, Range("A1")= "=B2+B3". Как быть?
Заранее спасибо
PS на всякий случай привожу свой код

Sub Svodnie_percentages()
Dim i As Integer
Dim bufer As String, first_part As String, second_part as String
Dim counter As Integer

second_part = "ПОЛУЧИТЬ.ДАННЫЕ.СВОДНОЙ.ТАБЛИЦЫ(" & Chr(34) & "Значение" & Chr(34) & ";$A$3;" & Chr(34) & "Столбец" & Chr(34) & ";" & Chr(34) & "Стоимость" & Chr(34) & ")"

counter = Range("C" & Rows.Count).End(xlUp).Row

For i = 5 To counter - 1
bufer = Range("A" & i)
first_part = "=ПОЛУЧИТЬ.ДАННЫЕ.СВОДНОЙ.ТАБЛИЦЫ(" & Chr(34) & "Значение" & Chr(34) & ";Сводные!$A$3;" & Chr(34) & "Строка" & Chr(34) & ";" & _
            Chr(34) & bufer & Chr(34) & ";" & Chr(34) & "Столбец" & Chr(34) & ";" & Chr(34) & "Стоимость" & Chr(34) & ")/"
    
    Range("D" & i).Value = first_part & second_part
    Next i
  

End Sub

[The_Prist]

А Вы попробуйте записать так:

Range("D" & i).FormulaLocal = first_part & second_part

[postrelll]

Спасибо, как раз сам нашел этот вариант. Но работает немного другой вариант

Range("D" & i).FormulaLocal = "=" & first_part & second_part