Oi Patropi....obrigado ela funcionou, agora é só alterar para percorrer um período de 12 meses pois a estrutura é fixa, porém os valores serão distrib...

Boa tarde Dimas Pra facilitar anexe uma planilha de exemplo com poucos dados, demonstrando o resultado esperado. []s

Mais ou menos assim... Range("A4:B4").Select Range("B4").Activate Application.CutCopyMode = False Selection.Copy ...

rrsss...desculpa os erros, mas estou querendo mesmo é isto que vc falou...validação dependente.... vou verificar a planilha que enviou.... por enquant...