以12行为间隔复制和粘贴的VBA宏

我需要复制一系列单元格（A10:Z25） 然后将其粘贴到最后一行或区域Z行下12行。 这需要进行1000次

换言之： 复制16行 跳转12行（从范围的最后一个单元格开始） 粘贴16行 跳转12行（从范围的最后一个单元格开始） 粘贴16行

等等。。1000次

---

谢谢

欢迎来到StackOverflow。请注意，这不是一个免费的代码编写服务，但我们渴望帮助其他程序员（和有志者）编写自己的代码。请阅读上的帮助主题。您可能还想在这样做的同时获得一枚徽章。之后，请使用您迄今为止编写的VBA代码更新您的问题，以便完成您希望完成的任务。

Sub Test()

Dim i As Integer
Dim intRowno As Integer

intRowno = 1

For i = 1 To 1000

    Range("A10:Z25").Copy Cells(intRowno, 2)
    intRowno = ((i + i) * 12) + 1

Next


End Sub