Modelo do arquivo.

Esse código abaixo faz ...Copia ultima linha preenchida da Plan1 para primeira linha em branco na Plan2.

Dim ultimALINHA, primeirALINHA
Sheets("Plan1").Select
ultimALINHA = Sheets("Plan1").Range("a1000000").End(xlUp).Row
 primeirALINHA = Sheets("Plan2").Range("a1000000").End(xlUp).Row
 
 
    Rows(ultimALINHA).Select
    Selection.Copy
    Sheets("Plan2").Select
    Rows(primeirALINHA + 1).Select
    ActiveSheet.Paste
    Sheets("Plan1").Select
   
 

messiasmbm, não é necessário fazer select

pode ficar assim:

Boa tarde!
As linhas que deveriam ser copiadas são da coluna E a H, copiadas em outra planilha nas linhas das colunas de A a D.

Dim ultimALINHA, primeirALINHA
L1 = Sheets("Plan2").Cells(Rows.Count, "A" ).End(xlUp).Row+1
L2 = Sheets("Plan1").Cells(Rows.Count,"E" ).End(xlUp).Row

 Sheets("Plan2").Range("A" & l1 ,"D" & l1).value2 = Sheets("Plan1").Range("E" & l2 ,"h" & l2).value2

mas o ponto é que o pedido dela ficou confuso
planilha ela fala aba ou pasta de trabalho ?

Boa tarde!

Preciso de uma macro que copie a ultima linha preenchida em uma planilha, na primeira linha em branco de outra planilha, mas a que criei não está funcionando bem (ela copia apenas a primeira linha, e se inserir mais linhas no início, a formatação da ferramenta será alterada).

dá a entender que ela quer copiar mais de uma linha e não apenas a ultima
tbm pode ser que ela queira copiar as para a outra aba de cima para baixo --->>L10>l1..L9>l2..L8>l3

Edcronos2, desculpa pela pergunta, ficou confusa mesmo! Mas a intenção é copiar apenas a ultima linha mesmo, em outra aba, da plan1 para a plan2.

Mas já funcionou aqui, me salvaram! Muito obrigada

rtm

Você não agradeceu, nem marcou o tópico como resolvido.

acesse o link abaixo:

viewtopic.php?f=7&t=16757

[]s

Patropi - Moderador