Dall'editor vba di excel inserisci in un modulo questo codice

codice:
Function colore(ByVal rng As Range)
rosse = 0
For Each cella In rng.Cells
    If cella.Interior.ColorIndex = 3 Then
    rosse = rosse + 1
    End If
Next cella
colore = rosse
End Function
attenendomi al tuo esempio nella colonna F, come se fosse una funzione nativa di excel, scrivi

=colore(a1:e1)

avrai il numero di celle con sfondo rosso in quel range.
Poi basta che trascini la formula per le righe sottostanti.