Code:

```
Sub Testing()
Dim Wkb As Excel.Workbook
Dim ws As Sheets
Dim ws_count As Long
Dim i As Long
Dim j As Integer
Dim k As Integer
Set Wkb = ThisWorkbook
Set ws = ThisWorkbook.Worksheets
ws_count = Wkb.Worksheets.Count
'Begin loop
For i = 1 To 10
Call RandNumberGen
Call SimulatedPath
Sheet6.Calculate
Sheet7.Calculate
Sheet8.Calculate
Sheet9.Calculate
Sheet10.Calculate
For j = 1 To 10
For k = 3 To 13
Sheet11.Range("A1:C12").Copy
Sheet11.Range(Cells(1, j + 5), Cells(12, k + 5)).PasteSpecial xlPasteValues
'Paste Step Column by 5
Next k
Next j
Next i
Sheet11.Calculate
End Sub
```