title: Dynamically insert rows
body: <p><img src="https://i.stack.imgur.com/xKHsn.jpg" alt="enter image description here"></p>
  
  <p>I want to ask couple of Qs.</p>
  
  <p>1.
  Code below dynamically add new rows before the cell that contain "7000"</p>
  
  <p>Code works but it is not very efficient. It slows down where I used For Next loop to insert new rows. Is there better way to insert rows dynamically before cell that contain "7000". </p>
  
  <pre><code>Sub PLFinalReport()
  
  Dim XCount As Integer
  Dim YCount As Integer
  Dim i As Integer
  
  JobsPivot.Activate
  
  XCount = JobsPivot.Range("H3", Range("H3").End(xlDown)).Count
  
  PLJob.Activate
  
  Range("G6", Range("G6").End(xlDown)).Find("7000").Select
  
  YCount = Range(ActiveCell, ActiveCell.End(xlUp)).Count - 2
  
  For i = 1 To (XCount - YCount)
      ActiveCell.EntireRow.Insert
  Next i
  
  JobsPivot.Activate
  
  JobsPivot.Range("H3", Range("H3").End(xlDown).End(xlToRight)).Copy
  PLJob.Range("G6").PasteSpecial
  
  End Sub
  </code></pre>
  
  <ol start="2">
  <li>Also I want to copy the forumulas from cell B444 to F44 and paste them all the way down to the last row containing formulas. Same way as we do in the excel with fill handle. </li>
  </ol>
  
  <p>Thanks</p>