Macro para replicar dados 12 vezes em linhas especificas

[ElizeuMartins]

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 meta

Tente 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 Sub




Obrigado

[Erik Wesley]

É simples, mais um pouco confuso, pode disponibilizar um arquivo semelhante?