Erro procedure too large: Como faço divisao do codigo vba?

Ajudem me por favor com mais urgencia a dividir/simplificar o codigo abaixo em mais curto possivel(A ideia é aplicar o mesmo raciocineo em todas colunas e linhas repetidamente ate ao mes de Dezembro…so aceita ate Maio depois de Maio da o erro de too large):

Private Sub okdespesa_Click()
Worksheets(“balançodespesas”).Select

If mesesdespesa = “Janeiro” Then
'Janeiro
If selecionedespesa = Cells(20, 2) Then Cells(20, 3) = valordespesa.Value
If selecionedespesa = Cells(21, 2) Then Cells(21, 3) = valordespesa.Value
If selecionedespesa = Cells(22, 2) Then Cells(22, 3) = valordespesa.Value
If selecionedespesa = Cells(23, 2) Then Cells(23, 3) = valordespesa.Value
If selecionedespesa = Cells(24, 2) Then Cells(24, 3) = valordespesa.Value
If selecionedespesa = Cells(25, 2) Then Cells(25, 3) = valordespesa.Value
If selecionedespesa = Cells(26, 2) Then Cells(26, 3) = valordespesa.Value
If selecionedespesa = Cells(27, 2) Then Cells(27, 3) = valordespesa.Value
If selecionedespesa = Cells(28, 2) Then Cells(28, 3) = valordespesa.Value
If selecionedespesa = Cells(29, 2) Then Cells(29, 3) = valordespesa.Value
If selecionedespesa = Cells(30, 2) Then Cells(30, 3) = valordespesa.Value
If selecionedespesa = Cells(31, 2) Then Cells(31, 3) = valordespesa.Value
If selecionedespesa = Cells(32, 2) Then Cells(32, 3) = valordespesa.Value
If selecionedespesa = Cells(33, 2) Then Cells(33, 3) = valordespesa.Value
If selecionedespesa = Cells(34, 2) Then Cells(34, 3) = valordespesa.Value
If selecionedespesa = Cells(35, 2) Then Cells(35, 3) = valordespesa.Value
If selecionedespesa = Cells(36, 2) Then Cells(36, 3) = valordespesa.Value
If selecionedespesa = Cells(37, 2) Then Cells(37, 3) = valordespesa.Value
If selecionedespesa = Cells(38, 2) Then Cells(38, 3) = valordespesa.Value
If selecionedespesa = Cells(39, 2) Then Cells(39, 3) = valordespesa.Value
If selecionedespesa = Cells(40, 2) Then Cells(40, 3) = valordespesa.Value
If selecionedespesa = Cells(41, 2) Then Cells(41, 3) = valordespesa.Value
If selecionedespesa = Cells(42, 2) Then Cells(42, 3) = valordespesa.Value
If selecionedespesa = Cells(43, 2) Then Cells(43, 3) = valordespesa.Value
If selecionedespesa = Cells(44, 2) Then Cells(44, 3) = valordespesa.Value
If selecionedespesa = Cells(45, 2) Then Cells(45, 3) = valordespesa.Value
If selecionedespesa = Cells(46, 2) Then Cells(46, 3) = valordespesa.Value
If selecionedespesa = Cells(47, 2) Then Cells(47, 3) = valordespesa.Value
If selecionedespesa = Cells(48, 2) Then Cells(48, 3) = valordespesa.Value
If selecionedespesa = Cells(49, 2) Then Cells(49, 3) = valordespesa.Value
If selecionedespesa = Cells(50, 2) Then Cells(50, 3) = valordespesa.Value
If selecionedespesa = Cells(51, 2) Then Cells(51, 3) = valordespesa.Value
If selecionedespesa = Cells(52, 2) Then Cells(52, 3) = valordespesa.Value
If selecionedespesa = Cells(53, 2) Then Cells(53, 3) = valordespesa.Value
If selecionedespesa = Cells(54, 2) Then Cells(54, 3) = valordespesa.Value
If selecionedespesa = Cells(55, 2) Then Cells(55, 3) = valordespesa.Value
If selecionedespesa = Cells(56, 2) Then Cells(56, 3) = valordespesa.Value
If selecionedespesa = Cells(57, 2) Then Cells(57, 3) = valordespesa.Value
If selecionedespesa = Cells(58, 2) Then Cells(58, 3) = valordespesa.Value
If selecionedespesa = Cells(59, 2) Then Cells(59, 3) = valordespesa.Value
If selecionedespesa = Cells(60, 2) Then Cells(60, 3) = valordespesa.Value
If selecionedespesa = Cells(61, 2) Then Cells(61, 3) = valordespesa.Value
If selecionedespesa = Cells(62, 2) Then Cells(62, 3) = valordespesa.Value
If selecionedespesa = Cells(63, 2) Then Cells(63, 3) = valordespesa.Value
If selecionedespesa = Cells(64, 2) Then Cells(64, 3) = valordespesa.Value
If selecionedespesa = Cells(65, 2) Then Cells(65, 3) = valordespesa.Value
If selecionedespesa = Cells(66, 2) Then Cells(66, 3) = valordespesa.Value
If selecionedespesa = Cells(67, 2) Then Cells(67, 3) = valordespesa.Value
If selecionedespesa = Cells(68, 2) Then Cells(68, 3) = valordespesa.Value
If selecionedespesa = Cells(69, 2) Then Cells(69, 3) = valordespesa.Value
If selecionedespesa = Cells(70, 2) Then Cells(70, 3) = valordespesa.Value
If selecionedespesa = Cells(71, 2) Then Cells(71, 3) = valordespesa.Value
If selecionedespesa = Cells(72, 2) Then Cells(72, 3) = valordespesa.Value
If selecionedespesa = Cells(73, 2) Then Cells(73, 3) = valordespesa.Value
If selecionedespesa = Cells(74, 2) Then Cells(74, 3) = valordespesa.Value
If selecionedespesa = Cells(75, 2) Then Cells(75, 3) = valordespesa.Value
If selecionedespesa = Cells(76, 2) Then Cells(76, 3) = valordespesa.Value
If selecionedespesa = Cells(77, 2) Then Cells(77, 3) = valordespesa.Value
If selecionedespesa = Cells(78, 2) Then Cells(78, 3) = valordespesa.Value
If selecionedespesa = Cells(79, 2) Then Cells(79, 3) = valordespesa.Value
If selecionedespesa = Cells(80, 2) Then Cells(80, 3) = valordespesa.Value

End If
'mes de fevereiro

If mesesdespesa = "Fevereiro" Then

If selecionedespesa = Cells(19, 2) Then Cells(19, 4) = valordespesa.Value
If selecionedespesa = Cells(20, 2) Then Cells(20, 4) = valordespesa.Value
If selecionedespesa = Cells(21, 2) Then Cells(21, 4) = valordespesa.Value
If selecionedespesa = Cells(22, 2) Then Cells(22, 4) = valordespesa.Value
If selecionedespesa = Cells(23, 2) Then Cells(23, 4) = valordespesa.Value
If selecionedespesa = Cells(24, 2) Then Cells(24, 4) = valordespesa.Value
If selecionedespesa = Cells(25, 2) Then Cells(25, 4) = valordespesa.Value
If selecionedespesa = Cells(26, 2) Then Cells(26, 4) = valordespesa.Value
If selecionedespesa = Cells(27, 2) Then Cells(27, 4) = valordespesa.Value
If selecionedespesa = Cells(28, 2) Then Cells(28, 4) = valordespesa.Value
If selecionedespesa = Cells(29, 2) Then Cells(29, 4) = valordespesa.Value
If selecionedespesa = Cells(30, 2) Then Cells(30, 4) = valordespesa.Value
If selecionedespesa = Cells(31, 2) Then Cells(31, 4) = valordespesa.Value
If selecionedespesa = Cells(32, 2) Then Cells(32, 4) = valordespesa.Value
If selecionedespesa = Cells(33, 2) Then Cells(33, 4) = valordespesa.Value
If selecionedespesa = Cells(34, 2) Then Cells(34, 4) = valordespesa.Value
If selecionedespesa = Cells(35, 2) Then Cells(35, 4) = valordespesa.Value
If selecionedespesa = Cells(36, 2) Then Cells(36, 4) = valordespesa.Value
If selecionedespesa = Cells(37, 2) Then Cells(37, 4) = valordespesa.Value
If selecionedespesa = Cells(38, 2) Then Cells(38, 4) = valordespesa.Value
If selecionedespesa = Cells(39, 2) Then Cells(39, 4) = valordespesa.Value
If selecionedespesa = Cells(40, 2) Then Cells(40, 4) = valordespesa.Value
If selecionedespesa = Cells(41, 2) Then Cells(41, 4) = valordespesa.Value
If selecionedespesa = Cells(42, 2) Then Cells(42, 4) = valordespesa.Value
If selecionedespesa = Cells(43, 2) Then Cells(43, 4) = valordespesa.Value
If selecionedespesa = Cells(44, 2) Then Cells(44, 4) = valordespesa.Value
If selecionedespesa = Cells(45, 2) Then Cells(45, 4) = valordespesa.Value
If selecionedespesa = Cells(46, 2) Then Cells(46, 4) = valordespesa.Value
If selecionedespesa = Cells(47, 2) Then Cells(47, 4) = valordespesa.Value
If selecionedespesa = Cells(48, 2) Then Cells(48, 4) = valordespesa.Value
If selecionedespesa = Cells(49, 2) Then Cells(49, 4) = valordespesa.Value
If selecionedespesa = Cells(50, 2) Then Cells(50, 4) = valordespesa.Value
If selecionedespesa = Cells(51, 2) Then Cells(51, 4) = valordespesa.Value
If selecionedespesa = Cells(52, 2) Then Cells(52, 4) = valordespesa.Value
If selecionedespesa = Cells(53, 2) Then Cells(53, 4) = valordespesa.Value
If selecionedespesa = Cells(54, 2) Then Cells(54, 4) = valordespesa.Value
If selecionedespesa = Cells(55, 2) Then Cells(55, 4) = valordespesa.Value
If selecionedespesa = Cells(56, 2) Then Cells(56, 4) = valordespesa.Value
If selecionedespesa = Cells(57, 2) Then Cells(57, 4) = valordespesa.Value
If selecionedespesa = Cells(58, 2) Then Cells(58, 4) = valordespesa.Value
If selecionedespesa = Cells(59, 2) Then Cells(59, 4) = valordespesa.Value
If selecionedespesa = Cells(60, 2) Then Cells(60, 4) = valordespesa.Value
If selecionedespesa = Cells(61, 2) Then Cells(61, 4) = valordespesa.Value
If selecionedespesa = Cells(62, 2) Then Cells(62, 4) = valordespesa.Value
If selecionedespesa = Cells(63, 2) Then Cells(63, 4) = valordespesa.Value
If selecionedespesa = Cells(64, 2) Then Cells(64, 4) = valordespesa.Value
If selecionedespesa = Cells(65, 2) Then Cells(65, 4) = valordespesa.Value
If selecionedespesa = Cells(66, 2) Then Cells(66, 4) = valordespesa.Value
If selecionedespesa = Cells(67, 2) Then Cells(67, 4) = valordespesa.Value
If selecionedespesa = Cells(68, 2) Then Cells(68, 4) = valordespesa.Value
If selecionedespesa = Cells(69, 2) Then Cells(69, 4) = valordespesa.Value
If selecionedespesa = Cells(70, 2) Then Cells(70, 4) = valordespesa.Value
If selecionedespesa = Cells(71, 2) Then Cells(71, 4) = valordespesa.Value
If selecionedespesa = Cells(72, 2) Then Cells(72, 4) = valordespesa.Value
If selecionedespesa = Cells(73, 2) Then Cells(73, 4) = valordespesa.Value
If selecionedespesa = Cells(74, 2) Then Cells(74, 4) = valordespesa.Value
If selecionedespesa = Cells(75, 2) Then Cells(75, 4) = valordespesa.Value
If selecionedespesa = Cells(76, 2) Then Cells(76, 4) = valordespesa.Value
If selecionedespesa = Cells(77, 2) Then Cells(77, 4) = valordespesa.Value
If selecionedespesa = Cells(78, 2) Then Cells(78, 4) = valordespesa.Value
If selecionedespesa = Cells(79, 2) Then Cells(79, 4) = valordespesa.Value
If selecionedespesa = Cells(80, 2) Then Cells(80, 4) = valordespesa.Value

End If

'Mes de marco
If mesesdespesa = “Março” Then

If selecionedespesa = Cells(19, 2) Then Cells(19, 5) = valordespesa.Value
If selecionedespesa = Cells(20, 2) Then Cells(20, 5) = valordespesa.Value
If selecionedespesa = Cells(21, 2) Then Cells(21, 5) = valordespesa.Value
If selecionedespesa = Cells(22, 2) Then Cells(22, 5) = valordespesa.Value
If selecionedespesa = Cells(23, 2) Then Cells(23, 5) = valordespesa.Value
If selecionedespesa = Cells(24, 2) Then Cells(24, 5) = valordespesa.Value
If selecionedespesa = Cells(25, 2) Then Cells(25, 5) = valordespesa.Value
If selecionedespesa = Cells(26, 2) Then Cells(26, 5) = valordespesa.Value
If selecionedespesa = Cells(27, 2) Then Cells(27, 5) = valordespesa.Value
If selecionedespesa = Cells(28, 2) Then Cells(28, 5) = valordespesa.Value
If selecionedespesa = Cells(29, 2) Then Cells(29, 5) = valordespesa.Value
If selecionedespesa = Cells(30, 2) Then Cells(30, 5) = valordespesa.Value
If selecionedespesa = Cells(31, 2) Then Cells(31, 5) = valordespesa.Value
If selecionedespesa = Cells(32, 2) Then Cells(32, 5) = valordespesa.Value
If selecionedespesa = Cells(33, 2) Then Cells(33, 5) = valordespesa.Value
If selecionedespesa = Cells(34, 2) Then Cells(34, 5) = valordespesa.Value
If selecionedespesa = Cells(35, 2) Then Cells(35, 5) = valordespesa.Value
If selecionedespesa = Cells(36, 2) Then Cells(36, 5) = valordespesa.Value
If selecionedespesa = Cells(37, 2) Then Cells(37, 5) = valordespesa.Value
If selecionedespesa = Cells(38, 2) Then Cells(38, 5) = valordespesa.Value
If selecionedespesa = Cells(39, 2) Then Cells(39, 5) = valordespesa.Value
If selecionedespesa = Cells(40, 2) Then Cells(40, 5) = valordespesa.Value
If selecionedespesa = Cells(41, 2) Then Cells(41, 5) = valordespesa.Value
If selecionedespesa = Cells(42, 2) Then Cells(42, 5) = valordespesa.Value
If selecionedespesa = Cells(43, 2) Then Cells(43, 5) = valordespesa.Value
If selecionedespesa = Cells(44, 2) Then Cells(44, 5) = valordespesa.Value
If selecionedespesa = Cells(45, 2) Then Cells(45, 5) = valordespesa.Value
If selecionedespesa = Cells(46, 2) Then Cells(46, 5) = valordespesa.Value
If selecionedespesa = Cells(47, 2) Then Cells(47, 5) = valordespesa.Value
If selecionedespesa = Cells(48, 2) Then Cells(48, 5) = valordespesa.Value
If selecionedespesa = Cells(49, 2) Then Cells(49, 5) = valordespesa.Value
If selecionedespesa = Cells(50, 2) Then Cells(50, 5) = valordespesa.Value
If selecionedespesa = Cells(51, 2) Then Cells(51, 5) = valordespesa.Value
If selecionedespesa = Cells(52, 2) Then Cells(52, 5) = valordespesa.Value
If selecionedespesa = Cells(53, 2) Then Cells(53, 5) = valordespesa.Value
If selecionedespesa = Cells(54, 2) Then Cells(54, 5) = valordespesa.Value
If selecionedespesa = Cells(55, 2) Then Cells(55, 5) = valordespesa.Value
If selecionedespesa = Cells(56, 2) Then Cells(56, 5) = valordespesa.Value
If selecionedespesa = Cells(57, 2) Then Cells(57, 5) = valordespesa.Value
If selecionedespesa = Cells(58, 2) Then Cells(58, 5) = valordespesa.Value
If selecionedespesa = Cells(59, 2) Then Cells(59, 5) = valordespesa.Value
If selecionedespesa = Cells(60, 2) Then Cells(60, 5) = valordespesa.Value
If selecionedespesa = Cells(61, 2) Then Cells(61, 5) = valordespesa.Value
If selecionedespesa = Cells(62, 2) Then Cells(62, 5) = valordespesa.Value
If selecionedespesa = Cells(63, 2) Then Cells(63, 5) = valordespesa.Value
If selecionedespesa = Cells(64, 2) Then Cells(64, 5) = valordespesa.Value
If selecionedespesa = Cells(65, 2) Then Cells(65, 5) = valordespesa.Value
If selecionedespesa = Cells(66, 2) Then Cells(66, 5) = valordespesa.Value
If selecionedespesa = Cells(67, 2) Then Cells(67, 5) = valordespesa.Value
If selecionedespesa = Cells(68, 2) Then Cells(68, 5) = valordespesa.Value
If selecionedespesa = Cells(69, 2) Then Cells(69, 5) = valordespesa.Value
If selecionedespesa = Cells(70, 2) Then Cells(70, 5) = valordespesa.Value
If selecionedespesa = Cells(71, 2) Then Cells(71, 5) = valordespesa.Value
If selecionedespesa = Cells(72, 2) Then Cells(72, 5) = valordespesa.Value
If selecionedespesa = Cells(73, 2) Then Cells(73, 5) = valordespesa.Value
If selecionedespesa = Cells(74, 2) Then Cells(74, 5) = valordespesa.Value
If selecionedespesa = Cells(75, 2) Then Cells(75, 5) = valordespesa.Value
If selecionedespesa = Cells(76, 2) Then Cells(76, 5) = valordespesa.Value
If selecionedespesa = Cells(77, 2) Then Cells(77, 5) = valordespesa.Value
If selecionedespesa = Cells(78, 2) Then Cells(78, 5) = valordespesa.Value
If selecionedespesa = Cells(79, 2) Then Cells(79, 5) = valordespesa.Value
If selecionedespesa = Cells(80, 2) Then Cells(80, 5) = valordespesa.Value

End If

'mes de Abril
If mesesdespesa = “Abril” Then

If selecionedespesa = Cells(19, 2) Then Cells(19, 6) = valordespesa.Value
If selecionedespesa = Cells(20, 2) Then Cells(20, 6) = valordespesa.Value
If selecionedespesa = Cells(21, 2) Then Cells(21, 6) = valordespesa.Value
If selecionedespesa = Cells(22, 2) Then Cells(22, 6) = valordespesa.Value
If selecionedespesa = Cells(23, 2) Then Cells(23, 6) = valordespesa.Value
If selecionedespesa = Cells(24, 2) Then Cells(24, 6) = valordespesa.Value
If selecionedespesa = Cells(25, 2) Then Cells(25, 6) = valordespesa.Value
If selecionedespesa = Cells(26, 2) Then Cells(26, 6) = valordespesa.Value
If selecionedespesa = Cells(27, 2) Then Cells(27, 6) = valordespesa.Value
If selecionedespesa = Cells(28, 2) Then Cells(28, 6) = valordespesa.Value
If selecionedespesa = Cells(29, 2) Then Cells(29, 6) = valordespesa.Value
If selecionedespesa = Cells(30, 2) Then Cells(30, 6) = valordespesa.Value
If selecionedespesa = Cells(31, 2) Then Cells(31, 6) = valordespesa.Value
If selecionedespesa = Cells(32, 2) Then Cells(32, 6) = valordespesa.Value
If selecionedespesa = Cells(33, 2) Then Cells(33, 6) = valordespesa.Value
If selecionedespesa = Cells(34, 2) Then Cells(34, 6) = valordespesa.Value
If selecionedespesa = Cells(35, 2) Then Cells(35, 5) = valordespesa.Value
If selecionedespesa = Cells(36, 2) Then Cells(36, 6) = valordespesa.Value
If selecionedespesa = Cells(37, 2) Then Cells(37, 6) = valordespesa.Value
If selecionedespesa = Cells(38, 2) Then Cells(38, 6) = valordespesa.Value
If selecionedespesa = Cells(39, 2) Then Cells(39, 6) = valordespesa.Value
If selecionedespesa = Cells(40, 2) Then Cells(40, 6) = valordespesa.Value
If selecionedespesa = Cells(41, 2) Then Cells(41, 6) = valordespesa.Value
If selecionedespesa = Cells(42, 2) Then Cells(42, 6) = valordespesa.Value
If selecionedespesa = Cells(43, 2) Then Cells(43, 6) = valordespesa.Value
If selecionedespesa = Cells(44, 2) Then Cells(44, 6) = valordespesa.Value
If selecionedespesa = Cells(45, 2) Then Cells(45, 6) = valordespesa.Value
If selecionedespesa = Cells(46, 2) Then Cells(46, 6) = valordespesa.Value
If selecionedespesa = Cells(47, 2) Then Cells(47, 6) = valordespesa.Value
If selecionedespesa = Cells(48, 2) Then Cells(48, 6) = valordespesa.Value
If selecionedespesa = Cells(49, 2) Then Cells(49, 6) = valordespesa.Value
If selecionedespesa = Cells(50, 2) Then Cells(50, 6) = valordespesa.Value
If selecionedespesa = Cells(51, 2) Then Cells(51, 6) = valordespesa.Value
If selecionedespesa = Cells(52, 2) Then Cells(52, 6) = valordespesa.Value
If selecionedespesa = Cells(53, 2) Then Cells(53, 6) = valordespesa.Value
If selecionedespesa = Cells(54, 2) Then Cells(54, 6) = valordespesa.Value
If selecionedespesa = Cells(55, 2) Then Cells(55, 6) = valordespesa.Value
If selecionedespesa = Cells(56, 2) Then Cells(56, 6) = valordespesa.Value
If selecionedespesa = Cells(57, 2) Then Cells(57, 6) = valordespesa.Value
If selecionedespesa = Cells(58, 2) Then Cells(58, 6) = valordespesa.Value
If selecionedespesa = Cells(59, 2) Then Cells(59, 6) = valordespesa.Value
If selecionedespesa = Cells(60, 2) Then Cells(60, 6) = valordespesa.Value
If selecionedespesa = Cells(61, 2) Then Cells(61, 6) = valordespesa.Value
If selecionedespesa = Cells(62, 2) Then Cells(62, 6) = valordespesa.Value
If selecionedespesa = Cells(63, 2) Then Cells(63, 6) = valordespesa.Value
If selecionedespesa = Cells(64, 2) Then Cells(64, 6) = valordespesa.Value
If selecionedespesa = Cells(65, 2) Then Cells(65, 6) = valordespesa.Value
If selecionedespesa = Cells(66, 2) Then Cells(66, 6) = valordespesa.Value
If selecionedespesa = Cells(67, 2) Then Cells(67, 6) = valordespesa.Value
If selecionedespesa = Cells(68, 2) Then Cells(68, 6) = valordespesa.Value
If selecionedespesa = Cells(69, 2) Then Cells(69, 6) = valordespesa.Value
If selecionedespesa = Cells(70, 2) Then Cells(70, 6) = valordespesa.Value
If selecionedespesa = Cells(71, 2) Then Cells(71, 6) = valordespesa.Value
If selecionedespesa = Cells(72, 2) Then Cells(72, 6) = valordespesa.Value
If selecionedespesa = Cells(73, 2) Then Cells(73, 6) = valordespesa.Value
If selecionedespesa = Cells(74, 2) Then Cells(74, 6) = valordespesa.Value
If selecionedespesa = Cells(75, 2) Then Cells(75, 6) = valordespesa.Value
If selecionedespesa = Cells(76, 2) Then Cells(76, 6) = valordespesa.Value
If selecionedespesa = Cells(77, 2) Then Cells(77, 6) = valordespesa.Value
If selecionedespesa = Cells(78, 2) Then Cells(78, 6) = valordespesa.Value
If selecionedespesa = Cells(79, 2) Then Cells(79, 6) = valordespesa.Value
If selecionedespesa = Cells(80, 2) Then Cells(80, 6) = valordespesa.Value

End If

'mes de Maio
If mesesdespesa = “Maio” Then

If selecionedespesa = Cells(19, 2) Then Cells(19, 7) = valordespesa.Value
If selecionedespesa = Cells(20, 2) Then Cells(20, 7) = valordespesa.Value
If selecionedespesa = Cells(21, 2) Then Cells(21, 7) = valordespesa.Value
If selecionedespesa = Cells(22, 2) Then Cells(22, 7) = valordespesa.Value
If selecionedespesa = Cells(23, 2) Then Cells(23, 7) = valordespesa.Value
If selecionedespesa = Cells(24, 2) Then Cells(24, 7) = valordespesa.Value
If selecionedespesa = Cells(25, 2) Then Cells(25, 7) = valordespesa.Value
If selecionedespesa = Cells(26, 2) Then Cells(26, 7) = valordespesa.Value
If selecionedespesa = Cells(27, 2) Then Cells(27, 7) = valordespesa.Value
If selecionedespesa = Cells(28, 2) Then Cells(28, 7) = valordespesa.Value
If selecionedespesa = Cells(29, 2) Then Cells(29, 7) = valordespesa.Value
If selecionedespesa = Cells(30, 2) Then Cells(30, 7) = valordespesa.Value
If selecionedespesa = Cells(31, 2) Then Cells(31, 7) = valordespesa.Value
If selecionedespesa = Cells(32, 2) Then Cells(32, 7) = valordespesa.Value
If selecionedespesa = Cells(33, 2) Then Cells(33, 7) = valordespesa.Value
If selecionedespesa = Cells(34, 2) Then Cells(34, 7) = valordespesa.Value
If selecionedespesa = Cells(35, 2) Then Cells(35, 7) = valordespesa.Value
If selecionedespesa = Cells(36, 2) Then Cells(36, 7) = valordespesa.Value
If selecionedespesa = Cells(37, 2) Then Cells(37, 7) = valordespesa.Value
If selecionedespesa = Cells(38, 2) Then Cells(38, 7) = valordespesa.Value
If selecionedespesa = Cells(39, 2) Then Cells(39, 7) = valordespesa.Value
If selecionedespesa = Cells(40, 2) Then Cells(40, 7) = valordespesa.Value
If selecionedespesa = Cells(41, 2) Then Cells(41, 7) = valordespesa.Value
If selecionedespesa = Cells(42, 2) Then Cells(42, 7) = valordespesa.Value
If selecionedespesa = Cells(43, 2) Then Cells(43, 7) = valordespesa.Value
If selecionedespesa = Cells(44, 2) Then Cells(44, 7) = valordespesa.Value
If selecionedespesa = Cells(45, 2) Then Cells(45, 7) = valordespesa.Value
If selecionedespesa = Cells(46, 2) Then Cells(46, 7) = valordespesa.Value
If selecionedespesa = Cells(47, 2) Then Cells(47, 7) = valordespesa.Value
If selecionedespesa = Cells(48, 2) Then Cells(48, 7) = valordespesa.Value
If selecionedespesa = Cells(49, 2) Then Cells(49, 7) = valordespesa.Value
If selecionedespesa = Cells(50, 2) Then Cells(50, 7) = valordespesa.Value
If selecionedespesa = Cells(51, 2) Then Cells(51, 7) = valordespesa.Value
If selecionedespesa = Cells(52, 2) Then Cells(52, 7) = valordespesa.Value
If selecionedespesa = Cells(53, 2) Then Cells(53, 7) = valordespesa.Value
If selecionedespesa = Cells(54, 2) Then Cells(54, 7) = valordespesa.Value
If selecionedespesa = Cells(55, 2) Then Cells(55, 7) = valordespesa.Value
If selecionedespesa = Cells(56, 2) Then Cells(56, 7) = valordespesa.Value
If selecionedespesa = Cells(57, 2) Then Cells(57, 7) = valordespesa.Value
If selecionedespesa = Cells(58, 2) Then Cells(58, 7) = valordespesa.Value
If selecionedespesa = Cells(59, 2) Then Cells(59, 7) = valordespesa.Value
If selecionedespesa = Cells(60, 2) Then Cells(60, 7) = valordespesa.Value
If selecionedespesa = Cells(61, 2) Then Cells(61, 7) = valordespesa.Value
If selecionedespesa = Cells(62, 2) Then Cells(62, 7) = valordespesa.Value
If selecionedespesa = Cells(63, 2) Then Cells(63, 7) = valordespesa.Value
If selecionedespesa = Cells(64, 2) Then Cells(64, 7) = valordespesa.Value
If selecionedespesa = Cells(65, 2) Then Cells(65, 7) = valordespesa.Value
If selecionedespesa = Cells(66, 2) Then Cells(66, 7) = valordespesa.Value
If selecionedespesa = Cells(67, 2) Then Cells(67, 7) = valordespesa.Value
If selecionedespesa = Cells(68, 2) Then Cells(68, 7) = valordespesa.Value
If selecionedespesa = Cells(69, 2) Then Cells(69, 7) = valordespesa.Value
If selecionedespesa = Cells(70, 2) Then Cells(70, 7) = valordespesa.Value
If selecionedespesa = Cells(71, 2) Then Cells(71, 7) = valordespesa.Value
If selecionedespesa = Cells(72, 2) Then Cells(72, 7) = valordespesa.Value
If selecionedespesa = Cells(73, 2) Then Cells(73, 7) = valordespesa.Value
If selecionedespesa = Cells(74, 2) Then Cells(74, 7) = valordespesa.Value
If selecionedespesa = Cells(75, 2) Then Cells(75, 7) = valordespesa.Value
If selecionedespesa = Cells(76, 2) Then Cells(76, 7) = valordespesa.Value
If selecionedespesa = Cells(77, 2) Then Cells(77, 7) = valordespesa.Value
If selecionedespesa = Cells(78, 2) Then Cells(78, 7) = valordespesa.Value
If selecionedespesa = Cells(79, 2) Then Cells(79, 7) = valordespesa.Value
If selecionedespesa = Cells(80, 2) Then Cells(80, 7) = valordespesa.Value

End If

'mensagem
Worksheets(“cadastrocaixa”).Select

MsgBox “Despesa adicionada”

End Sub

Bom dia. Da pra reduzir sim. Veja como usar o corresp no vba pra saber em qual linha está o mês, ja reduz o numero eme12x.
Ai você coloca linha =corresp(mes)
Estou no celular ai não não posso testar o codigo agorw.

1 Curtida

Obrigado, Passe me seu watsapp ou de um toque, para seguir as instrucoes. +258 845952464