Sub SumColors()
......
    For n = 10 To 1010                              'rozsah buněk bude od 10 do 1010
        barva = Range("T" & n).Font.Color           'vytáhneme barvu písma
        hodnota = Range("T" & n)                    'zjistíme hodnotu buňky
......
End Sub

Jednoduše, v cyklu For n=xx to yy se dosadí počáteční a koncová buňka a v parametru Range("ZZ" & n) znamená písmeno v uvozovkách sloupec. Ten znak "&" znamená zkombinovat do jednoho řetězce, tzn když písmeno je "AB" a n=20, vznikne z toho "AB20". V posledních dvou řádcích makra definuješ, do které buňky se součty zapisují.