Caros colegas, não tenho experiencia com VBA e preciso que de acordo com o valor de uma celula (JANEIRO ou FEVEREIRO) ele realize uma função, que no caso de JANEIRO é um macro que tem a seguinte logica:
1º Seleciona a Planilha "Calculo Automatizado"
2º Seleciona o intervalo "A4:E8"
3º Copia o intervalo selecionado
4º Seleciona a Planilha "IMPRESSAO MENSAL"
5º Seleciona o intervalo "O9:S13"
6º Cola especial somente valores

Pesquisei na net e fui tentando fazer o codigo... Ficou mais ou menos assim... Só que deu erro 13 Tipos incompativeis...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$3" And Target.Value = "JANEIRO" Then
        Call JANEIRO
    ElseIf Target.Address = "$C$3" And Target.Value = "FEVEREIRO" Then
        Call FEVEREIRO
    Else: Exit Sub
    End If
End Sub
Sub JANEIRO()
    Application.Goto (ActiveWorkbook.Sheets("Calculo Automatizado").Range("A4:E8"))
    Selection.Copy
    Application.Goto (ActiveWorkbook.Sheets("IMPRESSAO MENSAL").Range("O9:S13"))
    ActiveSheet.Paste
End Sub
Sub FEVEREIRO()
    MsgBox "FEVEREIRO"
End Sub