Sub x()
    With Selection
        .EntireRow.Copy
        .Offset(1).EntireRow.Insert
        Application.CutCopyMode = False
        Cells(.Row + 1, "P").Select
    End With
End Sub