je to jednoduchý, makrem bez problémů:

Sub SumColors()
    b1 = 0                                          'definujeme počáteční hodnoty
    c1 = 0
    cerna = 0
    cervena = 255
    For n = 1 To 10                                 'rozsah buněk bude od 1 do 10
        barva = Range("a" & n).Font.Color           'vytáhneme barvu písma
        hodnota = Range("a" & n)                    'zjistíme hodnotu buňky
        If Not IsNumeric(hodnota) Then hodnota = 0  'pokud v buňce není číslo, bere se jako nula
        If barva = cerna Then c1 = c1 + hodnota     'sčítáme černé hodnoty
        If barva = cervena Then b1 = b1 + hodnota   'sčítáme červené hodnoty
    Next
    Range("b1") = b1                                'nakonec dosadíme do buněk
    Range("c1") = c1
End Sub