PFB my code. I am getting an error on Range(Sheets("simulations").Cells(2, ctr)).Value = Sheets("Model").Range("AP42:AP1041").Value.
Please suggest.
Thanks
Sub loopThrough()Dim i, j, ctr As IntegerDim r(0 To 4, 0 To 4) As LongDim r2(0 To 4, 0 To 4) As Longctr = 1For i = 0 To 4 For j = 0 To 4 Range("Run").Value = ctr Calculate Src = Sheets("Model").Range("AP42:AP1041").Value Range(Sheets("simulations").Cells(2, ctr)).Value = Sheets("Model").Range("AP42:AP1041").Value r(i, j) = Range("c").Value r2(i, j) = Range("s").Value ctr = ctr + 1 Next jNext iEnd Sub