il modo migliore per imparare è registrarne una e poi editarla, per quanto riguarda il tuo scopo prova questa:

Sub somma()
Dim somma As Integer

somma = 0
While ActiveCell.Value <> ""
If Selection.Font.ColorIndex = 48 Then somma = somma + ActiveCell.Value
ActiveCell.Offset(1, 0).Range("A1").Select
Wend
ActiveCell.Value = somma
End Sub