根据单元格里面的数值自动插入相应的单元格，插入的新单元格自动填充上一行的公式

a786369019

求大神帮忙看一下，已经完成第一步；但是自动填充上一行的公式不知道如何完成（可以添加辅助列）

a786369019

求大神帮忙

a786369019

求老师帮忙

a786369019

求老师帮忙

gdljqi

Sub insertrows()
  Dim i As Long, j As Long, n As Long, rng As Range, r As Range
      For i = 3 To 10
      If Cells(i, 1) <> "" Then
       j = Cells(i, 1)
      For n = i + 1 To i + j - 0
      Set r = Rows(n)
      Rows(n).Select
      Set rng = Selection
      With rng
         .Insert Shift:=xlDown
         '.Offset(-1).Value = r.Value '复制值
         '.Offset(-1).Value2 = r.Value2
         .Offset(-1).Formula = r.Formula '复制公式
      End With
     Next n
    End If
   Next i
End Sub