Guru do Excel e Power BI

Bom dia gente!

Estou precisando que determinadas informaçoes da tabela sejam copiadas pra outra ABA sempre que eu clicar em salvar dados, porém preciso que os dados não se sobrescrevam por exemplo:

ESSA SERIA A PARTE DE INFORMAÇOES QUE SERÃO SALVAS
Imagem

ASSIM FICARIA AS INFORMAÇOES DEPOIS DE SALVAS.
Imagem

O que eu quero é que sempre que eu salvar as INFORMAÇOES da aba DIGIGITAÇÃO, a aba DADOS seja alimentada com essas informaçoes sem que uma dado de uma nota fiscal sobrescreva a outra.

Segue a planilha para melhor entendimento.

Seria necessário mesmo VBA? Dependendo do tamanho da planilha pode demorar para concluir essa tarefa.

Experimente:

Código: Selecionar todos

Sub ReplicaDados()
 Dim LRo As Long, LRd As Long
  LRo = Cells(Rows.Count, 1).End(3).Row
   With Sheets("Dados")
    LRd = .Cells(Rows.Count, 1).End(3).Row
    .Cells(LRd + 1, 4).Resize(LRo - 7, 13).Value = Range("A8:M" & LRo).Value
    .Cells(LRd + 1, 1).Resize(LRo - 7, 2).Value = Application.Transpose(Range("C5:C6").Value)
    .Cells(LRd + 1, 3).Resize(LRo - 7).Value = Range("E5").Value
   End With
 'Range("C4:C6,E5,A8:M" & LRo) = ""
End Sub

obs. se você quiser limpar a planilha "Digitação" após replicar os dados, remova o apóstrofo do início da penúltima linha do código

Guru do Excel e Power BI

Acrecentar dados de uma tabela em uma lista

Acrecentar dados de uma tabela em uma lista

Acrecentar dados de uma tabela em uma lista

Re: Acrecentar dados de uma tabela em uma lista