I reckon this should do the trick.
It finds the last row, copies it and pastes it into the row beneath.
Sub test()
Lastrow = Range("A65536").End(xlUp).Row
Rows(Lastrow & ":" & Lastrow).Select
Selection.Copy
Rows(Lastrow + 1 & ":" & Lastrow + 1).Select
ActiveSheet.Paste
End Sub
Rgds
AJ