ho capito bene? per ogni riga, giusto?
inserisci un pulsantino e assegnagli questa macro

codice:
Private Sub CommandButton1_Click()

    PrimaRiga = 2
    UltimaRiga = 1000

    For riga = PrimaRiga To UltimaRiga
        numero = 0
        For colonna = 3 To 8
            If ActiveSheet.Cells(riga, colonna).Interior.ColorIndex > 0 Then
                'aggiungi
                numero = numero + 1
            End If
        Next colonna
        ActiveSheet.Cells(riga, 11) = numero
    Next
    
End Sub
non so che struttura abbia il tuo foglio, ho impostato da variabile la prima e l'ultima riga delle celle da analizzare

ciao ciao