title: Calculate, Copy and Paste to a given value in VBA
body: <p>I am fairly new to VBA. I am trying to automate iterations based on the no. of iterations specified in cell "E2". I want excel to Autofill down column A from cell "A4" to the value of cell "E2" e.g if E2 = 100, Excel will autofill series 1,2,3...down to 100.</p>
  
  <p>I then want excel to continuosly calculate the value of cell "B2" then copy and paste each result down column B, starting at "B4" and stops at the value of iterations "E2"</p>
  
  <p>I have the following code for the "Autofill"</p>
  
  <pre><code> Sub Monte3()
         Dim srcRange As Range
         Dim destRange As Range
         Range("A5:A1000000").ClearContents
         Set srcRange = ActiveSheet.Range("A4")
         Set destRange = ActiveSheet.Range("A4:A103")
         srcRange.AutoFill destRange, xlFillSeries
  
    End Sub
  </code></pre>
  
  <p>I have recorded the following Macro for copy paste</p>
  
  <pre><code>   Sub Macro10()
  
  Application.CutCopyMode = False
  Calculate
  Range("B2").Select
  Selection.Copy
  Range("B4").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
  
  Application.CutCopyMode = False
  Calculate
  Range("B2").Select
  Selection.Copy
  Range("B5").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
  
  Application.CutCopyMode = False
  Calculate
  Range("B2").Select
  Selection.Copy
  Range("B6").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
  
  Application.CutCopyMode = False
  Calculate
  Range("B2").Select
  Selection.Copy
  Range("B7").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
  </code></pre>
  
  <p>What's the easiest way to do this?</p>