Excel中的蒙特卡洛VBA倾销和粘贴值

我正在尝试使用vba复制和粘贴大量的模拟数据。 我已经完成了所有的计算，只是这个最后的部分让我失望，因为我不擅长编写循环！ 我需要做的是反复复制，粘贴和刷新一个表单到一个范围，然后移动到下一个未使用的行并继续进程。 一旦完成，我将使用vlookups和index + matches从这些数组中获取我需要的数据。 这里是我有的代码（没有循环）：

Sub Sim() Worksheets("Sim Results").Range("N2:R21").Copy Worksheets("Sim Table").Range("A2").PasteSpecial xlPasteValues Worksheets("Sim Results").Range("N2:R21").Copy Worksheets("Sim Table").Range("A22").PasteSpecial xlPasteValues Worksheets("Sim Results").Range("N2:R21").Copy Worksheets("Sim Table").Range("A42").PasteSpecial xlPasteValues Worksheets("Sim Results").Range("N2:R21").Copy Worksheets("Sim Table").Range("642").PasteSpecial xlPasteValues End Sub 

循环进入20的集合，例如目标单元格将是A2，A22，A42，A62，A82等等。它还需要一个“do until”循环，允许我重复这个过程数千次。 ..

有人可以帮我吗？ 否则，我只需要复制这些行几千次！

编辑：这是解决scheme：

 Sub Sim() i = 0 Do Until i = 1000 Worksheets("Sim Results").Range("N2:S21").Copy Worksheets("Sim Table").Range("A" & 20 * i + 2).PasteSpecial xlPasteValues i = i + 1 Loop End Sub