VBA - Como Inserir Dados em Outras Abas da Planilha??? - VBA

[Breno Miranda]

Olá amigos, estou com um problema.

Criei um código para cadastrar boletos em uma planilha excel, porém não estou conseguindo fazer um código para inserir dados nos meses corretos automaticamente...

Ex: inserir dados em "MARÇO" apartir do Mês de Referência ou Data de Vencimento informada pelo usuário.

Esse código que fiz só insere os dados no mês de JANEIRO.

Agradeço a ajuda de todos, por favor...

Código:

Sub Cadastro()
    
If Range("d4") = Empty Or Range("d6") = Empty Or Range("d8") = Empty Or Range("f4") = Empty Or Range("f6") = Empty Or Range("f8") = Empty Or Range("d10") = Empty Then
MsgBox ("Insira todos os dados!")
Exit Sub
End If
  
    Sheets("JANEIRO").Select
    Range("b4").EntireRow.Insert
    
    ''EMPRESA
    Sheets("INSERIR DADOS").Select
    Range("d4").Copy
    Sheets("JANEIRO").Select
    Range("f4").PasteSpecial xlPasteValues
    
    ''FORMA DE PAGTO
    Sheets("INSERIR DADOS").Select
    Range("d6").Copy
    Sheets("JANEIRO").Select
    Range("g4").PasteSpecial xlPasteValuesAndNumberFormats

    ''DATA VENC
    Sheets("INSERIR DADOS").Select
    Range("d8").Copy
    Sheets("JANEIRO").Select
    Range("b4").PasteSpecial xlPasteValuesAndNumberFormats

    ''NF
    Sheets("INSERIR DADOS").Select
    Range("f4").Copy
    Sheets("JANEIRO").Select
    Range("d4").PasteSpecial xlPasteValues

    ''Nº BOLETO
    Sheets("INSERIR DADOS").Select
    Range("f6").Copy
    Sheets("JANEIRO").Select
    Range("e4").PasteSpecial xlPasteValues

    ''Valor
    Sheets("INSERIR DADOS").Select
    Range("f8").Copy
    Sheets("JANEIRO").Select
    Range("h4").PasteSpecial xlPasteValues

    Worksheets("INSERIR DADOS").Range("d4").ClearContents
    Worksheets("INSERIR DADOS").Range("d6").ClearContents
    Worksheets("INSERIR DADOS").Range("d8").ClearContents
    Worksheets("INSERIR DADOS").Range("f4").ClearContents
    Worksheets("INSERIR DADOS").Range("f6").ClearContents
    Worksheets("INSERIR DADOS").Range("f8").ClearContents
End Sub