Excel Enviar dados de uma aba para outra e depois apagá-las com VB

[Marcel Campos]

Boa noite,

 

Preciso pegar os dados de um determinado intervalo de células e colar em outra aba.

 

Porém não pode sobrepor os dados colados anteriormente.

Após copiado as celulas da aba 1 necessário que as células sejam limpas

 

obrigado

Pasta1.xlsx

[OreiaG]

Veja se ajuda.

 

Sub TransfereDados()
 If [A2] <> "" Then
  Range("A2:D" & Cells(Rows.Count, 1).End(xlUp).Row).Cut Sheets("ABA 2").Cells(Rows.Count, 1).End(3)(2)
 End If
End Sub

 

[Marcel Campos]

@OreiaG obrigado pela ajuda

 

Tentei inserir na planilha porém não obtive sucesso.

 

Como processo de aprendizagem tentei fazer com base na suas informações, porém sem sucesso.

 

Este é o arquivo original, veja se consegue me ajudar.

 

Não estou conseguindo atribuir o processo de gerar o PDF e salvar o arquivo com nome especifico direto no botão.

 

Inserir um segundo botão para carregar para o baco de dados e limpar o formulário, porém sem sucesso. Seria muito mais pratico se fizesse tudo em um unico botão.

 

Ao clicar, gerasse o PDF, salvasse o arquivo com o nome especifico, enviasse para o banco de dados e depois limpasse o formulário para um novo preenchimento.

 

PS. Salvei o arquivo no formato XLSX para conseguir salvar no forum, estou sem .zip

 

Desde já muito obrigado

 

SR_KHC_BLU_REV01.xlsx