Segue uma ideia, veja se lhe serve.

Selecione na coluna S a célula que contém a cor que você deseja, clique na ferramenta Pincel, clique na célula a ser pintada.

Exemplo - para pintar de verde a célula D10:

1. selecione S5

2. clique no Pincel

3. selecione D10

Para pintar com a mesma cor células adjacentes basta arrastar e para pintar não adjacentes, duplo clique no Pincel.

Obrigado OsvaldoMP, mas a minha questão não é pintar, mas sim contar as células pintadas.

Minha Planilha já faz a contagem das células pintadas, mas a atualização dessa contagem não é automática, após pintar a célula eu tenho que dar dois cliques em qualquer célula para correr o código vba, e assim atualizar a contagem.

Postado por: @castilhos

O que preciso é de uma função que atualize essa contagem automaticamente ao pintar a célula.

Me parece que você sequer testou, pois a sequência que passei faz exatamente o que você pediu aí acima e não requer nenhuma função adicional. 😉 

Após aplicar a formatação com a ferramenta Pincel, conforme eu sugeri, a UDF CONTACOR() irá atualizar a contagem das cores, sem a necessidade de qualquer outra ação do usuário ou função adicional.

Faça os testes aí com fé. 😇 

@osvaldomp ,Deslculpe querido. Na verdade eu não havia compreendido sua resposta mesmo.
Realmente deu certo.
Obrigado e desculpe a vergonha kkk.