In diesem Beispiel wird die Formel für Zelle B1 in Sheet1 festgelegt.
Worksheets("Sheet1").Range("B1").FormulaR1C1 = "=SQRT(R1C1)"