Insert number of user inputted rows without copying pre-existing data

Hi all,

I have a formula that pastes rows into the excel sheet based on how many rows the user wants. However, it copies over pre-existing data.

Can anyone modify this VBA so it shifts all of the rows down?
Additionally, is it possible to copy the previous row and paste it instead of inserting new rows?

Sub x()
Dim nRows As Long
nRows = Application.InputBox("No of rows to insert?", "Insert Rows", , , , , , 1)
ActiveCell.Offset(1).Resize(nRows).EntireRow.Insert
End Sub

Thanks for the help!