Visual Basic - Actualización de formulas

Estimados colegas:
Tengo una serie de nombres la cual uso para hacer un grafico. Cuando este grafico muestra un pico, lo anulo colocando un cero en una celda alterna de forma que el valor del pico se transforma en el promedio del valor siguiente y el valor anterior de la serie.
Lo que ocurre es que cuando coloco dos o más ceros consecutivos, la función actualiza solo la ultima celda ingresada pero no las celdas anteriores relacionadas a los valores cero. PAra que esto funcione tengo qyue dar F2 y Enter en cada una de las formulas.
Mi pregunta es: como puedo hacer para que esta actualizacion sea automática.
Adjunto el código de la función creada.
Gracias anticipadas por su ayuda.
Public Function puntoPromedio(celref As Range, celact As Range) As Double
Dim contadorI, contadorD As Integer
contadorI = -1
Do While celref.Offset(0, contadorI).Value = 0
contadorI = contadorI - 1
Loop

contadorD = 1
Do While celref.Offset(0, contadorD).Value = 0
contadorD = contadorD + 1
Loop

puntoPromedio = (celact.Offset(0, contadorI).Value + celact.Offset(0, contadorD).Value) / 2

End Function