在循环中创build一个新工作表并复制数据

我正在尝试创build一个vba代码，可以在循环中复制数据，并将数据（通过循环创build）复制到新工作表中。 （我对vba是全新的，欢迎提供任何build议，谢谢！）

更具体地说，我正在为足球队泊松计算。 附表显示我正在使用的表格。

Sub Pos() Dim k As Long For k = 1 To 20 For l = 1 To 20 For i = 0 To 10 For j = 0 To 10 Cells(75 + i, 3 + j) = Application.WorksheetFunction.Poisson_Dist(i, Cells(25 + k, l + 1), False) * Application.WorksheetFunction.Poisson_Dist(j, Cells(50 + k, l + 1), False) Next j Next i Next l Next k End Sub 

底部表格是上面写的代码出现问题的地方。 当我按运行，它计算的结果，但不断变化。 有什么办法可以通过每次迭代来复制和粘贴每个结果。