Ejecutar Funciones al cambiar color y valor de Celdas.

Hola Expertos.

Estoy utilizando estas dos funciones:

Esta, la cual Cuenta los colores que tienen las celdas:

Function ContarColor(range_data As Range, criteria As Range) As Long
Dim Datax As Range
Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each Datax In range_data
If Datax.Interior.ColorIndex = xcolor Then
ContarColor = ContarColor + 1
End If
Next Datax
End Function

y esta, la cual suma de acuerdo a los colores que tiene cada celda, los valores que haya en ella:

Function SumaColor(CeldaColor As Range, RangoSuma As Range) As Double
Dim Celda As Range
For Each Celda In RangoSuma
If Celda.Interior.ColorIndex = CeldaColor.Cells(1, 1).Interior.ColorIndex Then SumaColor = SumaColor + Celda
Next Celda
Set Celda = Nothing
End Function.

Ahora bien, lo que necesito es que al cambiar el color de las celdas con un formato condicional y obviamente, al cambiar tambien manualmente los valores de las celdas, se ejecuten estas dos funciones automaticamente.

Tengo una lista con información que incluye texto y numeros desde A1:R149 y ese libro se llama "BDatos" y en otro libro llamado "CDatos", utilizo las funciones ContarColor y SumaColor, pero para que se ejecuten, debo hacer los cambios en BDatos y luego irme a CDatos y comenzar a modificar (presionar F2) en cada celda donde uso las funciones para que los valores se actualicen y lo que quiero es ahorrarme ese trabajo inoficioso, pero no le doy con el chiste.

Agradezco su amable colaboración.

Luis Carlos