En este Video te muestro de manera didáctica como crear una función que te permita contar las celdas dependiendo del color de relleno usando Visual Basic, también te muestro como aplicar la formula de manera profesional
Código de la macro:
Function CONTARCOLOR(colorbuscado As Range, Matriz As Range)
Application.Volatile
Dim celda As Range
For Each celda In Matriz
If celda.Interior.Color = colorbuscado.Interior.Color Then
CONTARCOLOR = CONTARCOLOR + 1
End If
Next celda
End Function