Faster Way to Copy and Paste Values

[mpjennings25]

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

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!