Función Propia: Contar celdas por formato condicional y otros criterios

Estoy desesperada con esto... Lo he intentado de mil maneras, he mirado en mil páginas pero no funciona! Sssssooooooossssss

Tengo una función propia, la cual necesito que además de contar por color (de fórmula condicional) me cuente por otro criterio, o tantos criterios como necesite, una especie de CONTAR. SI. CONJUNTO.

Adicionalmente, tengo dos criterios de formato condicional, si están por debajo de un valor lo colorea de un color, y si están por encima de otro valor, lo colorea de otro color. AYUDA!

Modifique una fórmula que encontré en una página pero no me da el resultado exacto, a veces me está contando más celdas, y el mismo resultado para los valores inferiores y superiores, no sé porque…. O peor aún, me da cero... :(

Adjunto código y pantallazo de la base de datos.

Function CONTARCOLOR(celdaColor As Range, RangoColor As Range, nombre As Range, RangoNombre As Range)
Application.Volatile
'Variables
Dim Celda As Range
'Recorremos todas las celdas del rango de nombres
For Each Celda In RangoNombre
fila = Celda.Row
If Celda.Value = nombre.Value And _
celdaColor.Interior.Color = Cells(fila, RangoColor.Column).Interior.Color Then
n = n + 1
End If
Next Celda
CONTARCOLOR = n
End Function

Enlace del archivo en Drive

https://1drv.ms/x/s!AlohEQo3vGj4g3QwtA8u_8J7h3hn