title: Copying and Pasting the Results of a Loop calculation using VBA
body: <p>I have a VBA calculation that is looping to recalculate cells 500 (or whatever the iteration is) times. For each recalculation there is an output which I want a record of after the loop is complete. I have tried a few different ways but I can't seem to get it right. Here is an example of what I have so far. </p>
  
  <pre><code>Private Sub CommandButton1_Click()
     Dim Iteration As Integer, i As Integer
     Iteration = Range("C4")
  
     For i = 1 To Iteration
       Range("C14,C15,C16,C17,C18,C19,C20").Calculate
       Range("C20").Copy
       Range("J" &amp; Rows.Count).End(xlUp).Offset(1).Select.PasteSpecial  xlPasteValues
     Next i
  
  End Sub
  </code></pre>