Function SUMARCOLORTIOTECH(ColorBuscado As Range, Columna As Range)
Dim celda As Range
For Each celda In Columna
    If celda.Interior.Color = ColorBuscado.Interior.Color Then
    sumar = sumar + celda
    End If
SUMARCOLORTIOTECH = sumar
Next celda
Set celda = Nothing
End Function