title: Copying Formula From Above
body: <p>We have a macro working via a button in Excel 2013 to insert a new row with formula from above.  the Problem is when it runs and i say for example copy from row 10 the formula in the new row 11 all still read back to row 10 not 11?</p>
  
  <pre><code>Sub Loop_InsertRowsandFormulas()
  
  Dim ws As Worksheet: Set ws = ThisWorkbook.Worksheets("Risk Input Sheet")
  Dim vRows As Long
  Dim lastCol As Long
  Dim firstRow As Long
  
  firstRow = InputBox("Enter Row To Start Insert From.")
  vRows = InputBox("Enter Number Of Rows Required")
  
  If firstRow = 0 Or vRows = 0 Then Exit Sub
  Debug.Print firstRow
  IngA = ws.Cells(5, ws.Columns.Count).End(xlToLeft).Column
  For myLoop = 1 To vRows
      ws.Range("A" &amp; (firstRow + myLoop)).EntireRow.Insert
      ws.Range("A" &amp; (firstRow + myLoop) &amp; ":BB" &amp; (firstRow + myLoop)).Formula = ws.Range("A" &amp; firstRow &amp; ":BB" &amp; firstRow).Formula
  Next
  
  End Sub
  </code></pre>