title: Copy and paste cells with random values
body: <p>My VBA code is:</p>
  <pre><code>Sub hello()
  Dim i As Long
  
  Sheets(&quot;Sheet10&quot;).Select
  
  For i = 3 To 101
  Cells(i, 21).Value = Cells(2, 21).Value
  Cells(i, 22).Value = Cells(2, 22).Value
  Sheets(&quot;Sheet10&quot;).Calculate
  Next i
  
  End Sub
  </code></pre>
  <p><code>Cells(2,21)</code> and <code>Cells(2,22)</code> contain a random formula, it could be <code>=RAND()</code> for simplicity. I would like to:</p>
  <ol>
  <li>Copy <code>Cells(2,21)</code> and <code>Cells(2,22)</code></li>
  <li>Paste <code>Cells(2,21)</code> and <code>Cells(2,22)</code> value in the next <code>i</code> row;</li>
  <li>Refresh <code>Cells(2,21)</code> and <code>Cells(2,22)</code></li>
  <li>Repeat until <code>i</code> is equal to <code>101</code>.</li>
  </ol>
  <p>What I get instead is that when <code>i=52</code> the sub miss point 3. and from <code>i=52</code> to <code>i=101</code> I get the same values. How can I address this issue?</p>