This should help you


Sub Insert_Row_Click()

Dim Rng
Dim i

  
If ActiveCell.row - 9 = Range("seqNum").Rows.Count Then

ActiveCell.Offset(1, 0).Select

End If

ActiveCell.EntireRow.Select

Rng = InputBox("Enter number of rows required.")

If Rng = "" Then Exit Sub



Application.ScreenUpdating = False
Application.Calculation = False
Application.EnableEvents = False

Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(Rng - 1, 0)).Select
Selection.EntireRow.Insert
    
Range("CopyRange").copy
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False

i = "1"

Do Until IsEmpty(Range("SeqNum").Cells(i, 1))

Range("SeqNum").Cells(i, 1).FormulaR1C1 = i

i = i + 1

Loop

Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = True
End If

ExitClause:

End Sub