Quiero un macro que me permita realizar una suma acumulativa

Necesito un macros que me permita tener una celda que se sume automáticamente al modificar el valor de una celda auxiliar.

Ejemplo.

Celda donde se se produce la suma acumulativa R19

Celda auxiliar S13

La celda auxiliar está con una fórmula de suma sobre otra hoja, en esa celda auxiliar quiero sólamente que me aparezca la nueva cifra derivado del cambio sobre los datos de la hoja sobre la que va referenciada.

He probado macros como estos:

If Target.Address = "$S$13" Then
Application.EnableEvents = False
Target.Value = Target.Value + Range("R19").Value
Range("R19").Value = Target.Value
Application.EnableEvents = True
End If

Pero el problema es que la celda auxiliar cambia y se copia los valores, eliminando la fórmula suma a la que hacia referencia.