vba - ユーザー指定の行から可変数の行を挿入

Question

データ セットに空白行の挿入を開始する行をユーザーが指定できるようにする必要があります。残りのクエリは正常に機能しているようです。この最後の変数を組み込む方法がわかりません。ここに私がこれまで持っているコードがあります。

Dim NumRowsToInsert As Long
Dim RowIncrement As Long
Dim ws As Excel.Worksheet
Dim LastRow As Long
Dim LastEvenlyDivisibleRow
Dim i As Long

NumRowsToInsert = InputBox("How many rows would you like to insert between each 
row of data?")     'any number greater than 0
RowIncrement = InputBox("How many rows of data between line inserts?")       'ditto
Set ws = ActiveSheet
With ws
    LastRow = .Range("A" & .Rows.Count).End(xlUp).Row
    LastEvenlyDivisibleRow = Int(LastRow / RowIncrement) * RowIncrement
    If LastEvenlyDivisibleRow = 0 Then
        Exit Sub
    End If
    Application.ScreenUpdating = False
    For i = LastEvenlyDivisibleRow To 1 Step -RowIncrement
        .Range(i & ":" & i + (NumRowsToInsert - 1)).Insert xlShiftDown
    Next i
End With
Application.ScreenUpdating = True
End Sub