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