title: Copy and Paste Solver Results after each run
body: <p>I have a sub to run the Solver 50 times using the Solver functions. However, I am trying to copy and paste the Solver results after each run. For example, on the Optimization tab, cell range E1:O13 are showing the solver results but each run the results will be overwritten on the same section. I want to copy the cell range E1:E13 over to another worksheet call "SolverResults" starting from Cell A1, say range Cell A1:K13 for the first run of Solver, and then copy and paste the second run of Solver into cells A16:K28, so on so forth. 
  For the copy and pasting part, I don't know how to use a loop, so currently on the SolverResults tab, I only show one section of data on A1:K13, which is when the Solver finishs running 50 times and the F1=221. </p>
  
  <p>Anyone knows how to use a loop to copy and paste the results section by section? I am pretty new to VBA, so any suggestions are appreciated!  </p>
  
  <pre><code>    {Sub RRS()
  For i = 0 To 50 Step 1
  SolverReset
  Range("F1") = 271 - i
      SolverOk SetCell:="$L$13", MaxMinVal:=3, ValueOf:=0.01, ByChange:="$F$4:$F$12" _
          , Engine:=1, EngineDesc:="GRG Nonlinear"
      SolverOptions MaxTime:=0, Iterations:=0, Precision:=0.001, Convergence:=0.0001 _
          , StepThru:=False, Scaling:=False, AssumeNonNeg:=True, Derivatives:=2
      SolverAdd CellRef:="$F$4:$F$12", Relation:=1, FormulaText:="$I$4:$I$12"
      SolverAdd CellRef:="$F$4:$F$12", Relation:=3, FormulaText:="$H$4:$H$12"
      SolverAdd CellRef:="$F$13", Relation:=2, FormulaText:="1"
      SolverSolve (True)
      SolverFinish KeepFinal:=1
      Worksheets("Optimization").Range("E1:O13").Copy Destination:=Worksheets("SolverResults").Range("A1")
  Next i
  End Sub
  }
  </code></pre>