Seeking to copy then paste last two rows

[auto.pilot]

Using XL07, I have the following, which is used to copy the last row, then paste in the next empty row.

Sub AddRowPV()
' don't look below row 55
    Range("A55").End(xlUp).EntireRow.Copy
    Range("A55").End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1").Select
End Sub

For a differrent project, I need to copy the last two rows, then paste into in the next empty rows on the same sheet.

I've tried several variations, using offset but can't figure it out.

thanks for all suggestions.

jim

 

[Marcelo Branco]

Hi,

Maybe this

Sub AddRowPV()
' don't look below row 55
    Range("A55").End(xlUp).Offset(-1, 0).Resize(2, 1).EntireRow.Copy
    Range("A55").End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1").Select
End Sub

HTH

M.

 

[auto.pilot]

Thank you - I will give a look.