Insert new row at bottom of data range

This code will repeat the last row:

Sub CopyRow()
    Dim bottomA As Integer
    bottomA = Range("a" & Rows.Count).End(xlUp).Row
    Rows(bottomA).Copy Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
End Sub