Sem um modelo do arquivo, os dados nao importam.... fica impossivel ajudar.

Me perdoe meu amigo,

Eu não lembro como eu faço para anexar um arquivo.

Você pode me ajudar?

Muito obnrigado.

TutoElizeu, não fica impossível ajudar, mas certamente demandaria mais dificuldade e mais trocas de mensagens.

Para anexar, ao abrir a resposta ao tópico, selecione Editor completo e selecione a aba Adicionar um anexo/Escolher arquivo...

A questao é que sem um modelo quem escrever o codigo vai escrever um codigo generico e se quem pergunta nao sabe nada, o resultado é que sera sem utilidade, o que ira gerar retrabalho.

O codigo por ele mesmo ja esta ae

Sub Copiar()

Sheets("Colar_ZSDQ").Select
Range("C2").Select
Selection.Copy
Sheets("BD_Compras").Select
Range("A1048576").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Colar_ZSDQ").Select
Range("L2").Select
Selection.Copy
Sheets("BD_Compras").Select
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A2").Select
Sheets("Colar_ZSDQ").Select
Range("A2").Select
End Sub

Muito obrigado meu amigo!

...E pode deixar que não esquecerei mais de colocar o arquivo.
Esse código já me ajudou muito.

Você e vocês todos estão de parabéns!!!

Deus abençoe!