复制在最后一行插入N行数据

Question

我有6行公式需要被复制N次到最后一行。

到目前为止，我有这个：

Dim Lastrow as Long
lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Const myMult As Long = 6 '<-Change to suit

With Range("A3:V8")
    .Copy Destination:=Range("A" & Lastrow + 1).Resize(.Rows.Count * myMult)
End With

我面临的问题是论坛没有正确进行。例如，如果我有一个-D10的公式引用，第一行应该从那开始。相反-D10正在变成-D18，因为它们之间有8条线。

非常感谢任何指导。