Faster Way to Copy and Paste Values

**mpjennings25** · 07-08-2013, 11:00 AM

Hi everyone, I have the following segment of code to run through 500 scenarios and copy and paste certain results onto a Results sheet:

Formula:

For i = 1 To 500

    For j = 0 To 14

    Sheets("Inputs").Range("B4") = i

    Sheets("Rates").Activate

    Call SolveRates

    Sheets("Rates").Range("D" & j & 7).Copy

    Sheets("Results").Cells(3 + j, i + 1).PasteSpecial Paste:=xlPasteValues

    Sheets("Rates").Range("D" & j & 8).Copy

    Sheets("Results").Cells(25 + j, i + 1).PasteSpecial Paste:=xlPasteValues

    Sheets("NCFs").Range("AO" & j & 9).Copy

    Sheets("Results").Cells(47 + j, i + 1).PasteSpecial Paste:=xlPasteValues

    Next j

Next i

    

End Sub

Right now it takes pretty long to run through all 500 scenarios, and I was wondering if anyone has any tips on how to clean up this code and make it run faster.

Thanks!

**AB33** · 07-08-2013, 11:04 AM

Please use code tags with your code as per form's rule.
It is difficult to comment as you have another call code, but generally speaking avoid using like select and activate.
You also nee dto use screen updating.