符合条件时，VBA复制单元格

我是VBA编码的新手。我已经在各处进行搜索以实现这一目标，但是一直在寻找死胡同，因此我目前正在手动进行。我想做的是，当我键入“ D”列中的数据时，它将根据“ D”列中的值自动将“ A，B，C”列中的项目复制到下一行。 “ D”列中的值将保持静态，仅“ C”列中的值将根据“ D”列中的值改变+1。示例如下图所示。我一直在尝试使用KuTools的以下代码，但似乎重复了所有行，并且值没有变化。

Sub insertrows()
'Updateby Extendoffice
Dim i As Long
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows","Kutools for Excel",1)
If xCount <1 Then
MsgBox "the entered number of rows is error,please enter again",vbInformation,"Kutools for Excel"
GoTo LableNumber
End If
For i = Range("A" & Rows.CountLarge).End(xlUp).Row To 2 Step -1
Rows(i).Copy
Rows(i).Resize(xCount).Insert
Next
Application.CutCopyMode = False
End Sub