在循环内创建新工作表并复制数据

Question

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

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

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

下表是上面编写的代码出现问题的地方。当我按下运行时，它会计算结果，但会不断变化。有没有什么办法可以让它在每次迭代中复制并粘贴每个结果。