Macro con formula

Hola grupo!
Esta macro para adjuticar fórmula a la celda activa, que realiza operaciones
con celdas de esa fila, me da error al ejecutarla: "error definido por la
aplicación o el objeto".
Si se pude resolver, desde ya agradecido

Sub Rendimiento_OFICIAL()
'
ActiveCell.FormulaR1C1 =
"=SI(RC-1=0;RC-5*RC-4/RC1;RC-5*RC-4(RC-1*RC1/(RC-1*RC1+RC3))/RC1)"

End Sub