Boa tarde Drafael,

Veja se é o que deseja.

att,

Fala Bruno! Cara muito show a planilha foi bem como queria. Só uma dúvida, no caso ali ficou com com duas linhas, dai sempre vai ficar uma em branco. É possível tirar essa para que todas fiquem preenchidas?
Muito obrigado pela ajuda cara.

Mais uma dúvida. Quando bloqueio a planilha os macros não funcionam mais, é possível fazer funcionar com a planilha bloqueada?

Boa tarde Drafael,

Sobre a linha em branco, deixei ela para dar suporte a 'lógica' da montagem do código, com ela ficou mais fácil (para mim) montar as macros. Se quiser, posso pensar depois em uma forma de realizar o processo sem essa linha.

Sobre o bloqueio, a macro é capaz de rodar mas é preciso adicionar linhas de código.
No caso seria antes de começar a macro desbloquear a planilha:

Sheets("Orçamento").Unprotect ('Senha')

e depois no fim da macro bloquear a planilha de novo:

Sheets("Orçamento").Protect ('Senha')

att,

Não precisa Bruno, apenas ocultei ela!
Consegui inserir a linha de código. Funcionou. Muito obrigado.