Range("A1").Formula = "=SUM(B5:B10)"
Вы можете вводить функцию в привычном варианте:
Range("A1").FormulaLocal = "=СУММ(B5:B10)"
Если функция находится в другой ячейке, то:
iFormula = Range("A5").Formula
Range("A1") = iFormula
iFormula = Range("A5").FormulaLocal
Range("A1").FormulaLocal = iFormula
Предполагается, что:
"A1" - это ячейка, куда будет помещена функция
"A5" - это ячейка, где находится нужная функция
=СУММ(B5:B10) - это функция, в ячейке "A5"
= "=IF(A5>13,A5,""<>"")"
= "=ЕСЛИ(A5>13;A5;""<>"")"
Если у Вас всё-таки возникли трудности с созданием формулы на VBA, то выберите одну (а лучше две, например A1, A2) пустые ячейки, и введите нужную формулу вручную, а затем просто выполните:
MsgBox Range("A1").Formula, , "Узрите :"
Range("A2") = "'" & Range("A1").Formula