Problema al editar una fórmula en una macro

No entiendo bien tu pregunta; lo que si te comento es que pudieras simplificar mucho la fmla de las sumas del final si lo cambias por:
ActiveCell.FormulaR1C1 = _
"=SUM(RC[-168]:RC[-146];RC[-120];RC[-43];RC[-23])"
Respecto a tu pregunta original si la podes aclarar un poco vemos como arreglarla juntos.

Perdón por el retraso en contestar pero he estado fuera.
Tenia una hoja excel de ejemplo pero no la puedo enviar, te envío la siguiente información, por si te sirve para entender mi pregunta inicial.
Col.A Col.B Col.C Col.D Col.E Col.F Col.G FormulaOriginal Resultado Macro
1 3 2 5 6 3 4 =+A2+B2+C2+D2+E2
La FormulaOriginal es un literal que obtenemos de una tabla.
Al ejecutar esta macro se sumaran siempre la 5 celdas.
Mi pregunta es :
Que se puede hacer para que si el literal, obtenido de la tabla, cambia a '=+A2+B2+C2+D2+E2+F2+G2
la formula generada en la macro cambie tambien (automaticamente)
Gracias
= = = = = = = = = =
Macro :
Sub EditarSI()
'
' EditarSI Macro
' Macro grabada el 22/11/2005 por General Optica
'
' Acceso directo: CTRL+q
'
Range("A1").Select
Application.Goto Reference:="FormulaOriginal"
Selection.Copy
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=+RC[-8]+RC[-7]+RC[-6]+RC[-5]+RC[-4]"
Range("A1").Select
End Sub
= = = = = = = = = =
Muchísimas gracias de antemano y perdón por las molestias.
Antonio