Pesquisar na Comunidade

Boa tarde, Me perdoe por favor se errei em alguma coisa, é minha primeira vez no forum! Depois de muito quebrar a cabeça para saber como automatizar o cadastro das metas dos representantes no Banco de dados resolvi solicitar uma ajuda!Tenho um planilha com duas abas "UF REPRES META 2018" e "BD_PET"Na aba "UF REPRES META 2018" eu tenho os dados da meta dos Representantes, eu preciso que quando eu cadastro um novo representante nesta aba eu clique no Botão "Cadastrar Representantes" e automaticamente os dados de Codigo de representante, Nome Representante e UF, v~~ao automaticamente para a aba "BD_PET" nas devidas coluna D, E , e AG,porém estes dados devem ser repetidos 12 vezes porque temos 12 meses no ano.Outro desafio é que antes de colar as informações a macro identifique na coluna "A" da aba "BD_PET" se é meta ou realizado, se for meta a Macro vá até a ultima linha da Meta e insira mais 12 linhas e coloque estes valores de acordo com as informações da metaTente adaptar uma macro para isto porém ela cola nas linhas erradas.Você pode me ajudar?Exemplo da macro que estou usando, mas que cola em linhas erradas:Sub Cadastrar_Representante() Dim WCN As Worksheet Dim WBD As Worksheet Dim Codigo As String Dim Representante As Long Dim Ulinha As Long Application.ScreenUpdating = False Set WCN = Sheets("UF REPRES META 2018") Set WBD = Sheets("BD_PET") Navio = WCN.Range("W2").Value Tonelada = WCN.Range("X2").Value For a = 1 To 12 Ulinha = WBD.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row WBD.Cells(Ulinha, 4).Value = Navio WBD.Cells(Ulinha, 5).Value = Tonelada Next WCN.Range("W2").Value = "" WCN.Range("X2").Value = "" Application.ScreenUpdating = True End SubObrigado