Nao da pra pintar manualmente????????

Bem mais simples

OLá,

Verdade, mas é apenas um exemplo. Outra razão é a impossibilidade de ser alterado pelo usuário. Farei a adaptação para o intervalo definitivo.

Obrigado.

De qualquer maneira

Sub CorVBA()
    Range("F4:Q26").Select
    Selection.Interior.Color = 13434828
    Range("H10:O20").Select
    Selection.Interior.Color = 12632256
    Range("F4").Select
End Sub

Muito bom.

Apenas um detalhe, como falei acima, uma razão para usar VBA seria a impossibilidade de ser alterada a cor pelo usuário, e nesse caso isso ainda ocorreria.
Pode verificar uma maneira?.

Um complemento, como a codificação da cor?

Obrigado.

Como ja foi explicado em outros topicos proteja a planilha pelo vba e desprotega para rodar a macro

Esta linha desprotege a planilha

 Sheets("Plan1").Unprotect Password = "1234"

Esta linha protege a planilha

Sheets("Plan1").Protect Password = "1234"

Neste caso 1234 é a senha utilizada troque conforme sua conveniencia

Sub CorVBA()
    Sheets("Plan1").Unprotect Password = "1234"
    Range("F4:Q26").Select
    Selection.Interior.Color = 13434828
    Range("H10:O20").Select
    Selection.Interior.Color = 12632256
    Range("F4").Select
    Sheets("Plan1").Protect Password = "1234"
End Sub

O codigo esta desprotegendo a planilha e protegendo novamente apos a execução da macro.

Em suas macros basta usar as linhas de desproteção no inicio e a de proteção no final.