misclick

Oi boa tarde a todos estou desenvolvendo uma uma interface em Vba para empesa onde trabalho hoje estava utilizando a ferramenta combo box para direcionar onde quero que mande os dados do formulário porém tenho uma coluna representando cada mês e o codigo ficou gigante alguém conseguiria me ajudar separando em blocos ou me dando alguma ideia do que fazer <Private Sub demandabox_Change() If Cnbmes = "Janeiro" And cbnbox = "PWS52013355A" Then Sheet1.Range("C4").Value = demandabox.Value end if If Cnbmes = "Janeiro" And cbnbox = "PMG52013851W" Then Sheet1.Range("C5").Value = demandabox.Value End If If Cnbmes = "Janeiro" And cbnbox = "PWS62013834AP" Then Sheet1.Range("C6").Value = demandabox.Value End If lembrando que isso vai ate a celula 39 de janeiro a dezembro para 39 itens diferentes cnbmes= combobox janeiro = mes presente na combobox PWS52013355A,PMG52013851W = produtos demandabox= text box para digitar o valor na celula expecifica de cada item C4,C5,C6= celula especifica.