Copy/insert a row to a position defined in a form

The code below will copy only row-1 to which ever row number is entered into the input box.

It could be made more flexible to allow the user to specify which row to copy by using another input box - but you did not ask for this.

Sub Insert_Row()

    Dim lRow As Long
    
    On Error Resume Next
    lRow = Application.InputBox _
        (Prompt:="Enter the row number at which to insert the data", _
            Title:="Enter a Number", _
            Type:=1)
            
    On Error GoTo 0

    Application.DisplayAlerts = True
    
    If lRow = 0 Then Exit Sub
    
    Range("1:1").Copy
    
    Cells(lRow, 1).EntireRow.Insert shift:=xlShiftDown
    
    Application.CutCopyMode = False

End Sub