Está función retorna una suma considerando un color dentro de un rango y los valores en cada una de ellas, ejemplo:

En el rango C1:C20 tenemos múltiples valores y cada cenda dentro del rango tiene diferente color de fondo, en la celda E1 ponemos un color de fondo del cual queremos obtener la sumatorio a partir del color y en la celda F1 hacemos el llamado de la función =SUMARCOLOR(E1,$C$1:$C:20) y nos debe dar la suma del rango considerando los valores de cada celda y el color de fondo de las celdas:

 Copiar código

Function SUMARCOLOR(color As Range, rango As Range) As Long
    'color: La celda que contiene el color a sumar
    'rango: El rango de celdas a considerar en la suma
        
    Dim resultado       'Almacenará el resultado de la suma
    Dim celda As Range
    
    'Recorrer cada celda del rango
    For Each celda In rango
        'Sumar si el color de la celda es igual al color especificado
        If celda.Interior.ColorIndex = color.Interior.ColorIndex Then
            resultado = resultado + celda.Value
        End If
    Next celda
    
    SUMARCOLOR = resultado
End Function