Excel Macro Excel Inserir linha, copiar e colar - Iniciante

[rafafguima]

Olá,

 

Estou precisando de uma macro bem simples, mas não consigo escrever o código sem dar erro.

 

Preciso executar o seguinte comando:

 

Localizar a última linha preenchida de uma planilha, inserir uma linha antes dela, copiar os dados da última linha preenchida e colar como valores na linha que foi inserida.

 

Alguém pode me ajudar?

 

Obrigado.

[Visitante]

Experimente:

 

Sub InsereLinhaReplicaDados()
 Dim LR As Long
 LR = Cells(Rows.Count, 1).End(3).Row
 Rows(LR).Insert
 Cells(LR + 1, 1).Resize(, 8).Copy
 Cells(LR, 1).PasteSpecial xlValues
 Application.CutCopyMode = 0
End Sub

 

[rafafguima]

1 hora atrás, osvaldomp disse:

Experimente:

 

Sub InsereLinhaReplicaDados()
 Dim LR As Long
 LR = Cells(Rows.Count, 1).End(3).Row
 Rows(LR).Insert
 Cells(LR + 1, 1).Resize(, 8).Copy
 Cells(LR, 1).PasteSpecial xlValues
 Application.CutCopyMode = 0
End Sub

 

Perfeito!

Obrigado!