Macro to Copy Two Rows From the Active Cell

[Magdoulin]

Quick assistance please
I'm trying to copy any new entry to paste every time in final database sheet

Every new entry is of 2 rows actually not one
So here is my code, but I'm afraid it's copying only the first row
How should I adjust to make it including the second one as well?

Sub ReportSheet()
ActiveCell.EntireRow.Copy Sheets("Report").Range("A" & Rows.Count).End(xlUp).Offset(1)
End Sub

 

[Yongle]

Try this

ActiveCell.Resize(2).EntireRow.Copy Sheets("Report").Range("A" & Rows.Count).End(xlUp).Offset(1)

 

[Magdoulin]

Thanks, work perfectly and saved me 3 lines in the code