Hola.
El problema es que al usar R1C1 estas usando direecciones relativas
Tendrias que reemplar esta linea
ActiveCell.FormulaR1C1 = "=SUM(R[-Addition]C:R[-2]C)"
Por el siguiente codigo
Código:
ActiveCell.Formula = "=SUM(TuFila:TuColumna)"
'Si por ejemplo quisieras sumar el rango C1:C3 seria
ActiveCell.Formula = "=SUM(C1:C3)"
Espero te sirva
PD: No es necesario que te posiciones en la celda que vas a sumar (WRKNEW.Worksheets(1).Cells(Row5, Column).Activate) ya que podrias hacerlo directamente con Cells(tuFila,TuColumna).Formula = "=SUM(TuFila:TuColumna)"