[Limpar celulas de acordo com a seleção]

Muitíssimo obrigado , vou aplicar aki e ver resultado, me inscreverei sim!!

[Limpar celulas de acordo com a seleção]

Qlá a todos, me chamo Rodrigo, e preciso de ajuda de um especialista em macro...

Tenho uma célula onde  seleciono mês, ao selecionar mês 1 o script deve limpar as células  de O12:$O$23, se selecionar mês 2, deve limpar da O13:$O$23 e sucessivamente até o mês 12.

 

 

'Limpa
    Sheets("Adjusted").Select
    Range("O16:O23").Select
    Selection.ClearContents
    Range("P12:P23").Select
    Selection.ClearContents
    Range("S21").Select