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.