COPIAR E COLAR ULTIMA LINHA [RESOLVIDO]

[rachelgdias]

Bom dia,
Gostaria de copiar a ultima linha preenchida Da tabela que contem 03 colunas (A,B,C) para a coluna D, E F., 01 Linha abaixo.
EX:

A B C
maria 1 1
joao 2 2



'fiz isso , mas copia APENAS A COLUNA A. quero copiar a ultima linha das 03 colunas.

Range("c65536:f65536").End(xlUp).Select 'ACHA A ULTIMA LINHA PREENCHIDA
Selection.Copy Destination:=ActiveCell.Offset(1, 4) 'COPIA E COLA PARA UMA LINHA ABAIXO NA COLUNA DESEJADA

[Alyson]

Tenta da seguinte maneira:
Dim uLinhaA as long
Dim uLinhaC as long

uLinhaA = cells(rows.count, "A").end(xlup).row
uLinhaD = cells(rows.count, "D").end(xlup).row + 1

Range("A" & uLinhaA & ":C" & uLinhaA ).copy
Range("D" & uLinhaD).select
Activecell.paste

Qualquer erro aqui foi por esta escrevendo do celular.

[rachelgdias]

Tenta da seguinte maneira:
Dim uLinhaA as long
Dim uLinhaC as long

uLinhaA = cells(rows.count, "A").end(xlup).row
uLinhaD = cells(rows.count, "D").end(xlup).row + 1

Range("A" & uLinhaA & ":C" & uLinhaA ).copy
Range("D" & uLinhaD).select
Activecell.paste

Qualquer erro aqui foi por esta escrevendo do celular.

bom dia, Alyson,
Muito obrigada pela ajuda, RESOLVIDO.