Buenos dias,

tengo creada la función ContarColor, pero me cuenta todas las celdas de ese color, y lo que necesito es que me cuente solo las que tienen datos, alguien podría ayudarme.

Graciasexcel.2.xlsm

Function CONTARCOLOR(celdaOrigen As Range, rango As Range)
 
Application.Volatile
 
'Variables
Dim celda As Range
 
'Recorremos todas las celdas del rango
For Each celda In rango
 
'Compara la propiedad Interior.Color
If celda.Interior.color = celdaOrigen.Interior.color And celda <> "" Then
   CONTARCOLOR = CONTARCOLOR + 1
End If
 
Next celda
 
End Function