title: How to insert multiple rows based on criteria in Column from the top of table
body: <p>I have a macro that has already inserted a Table (A3:L3), and filtered Column C's Value: Largest to smallest.</p>
  
  <p>I would like to insert a If / Then Function.
  If the Value in Column C &lt;= to 1, insert 3 Rows below that cell.</p>
  
  <p>But, I only need the formula to insert for the first occurrence starting from the top. To separate the Values >=1 (3 Rows) &lt;=1</p>
  
  <p>(The Table Columns will always be A3:L3, but end data will be unknown)</p>
  
  <p>Example:
  32.6
  10.2
  7.5
  4.7
  3.1
  2.0
  1.6
  1.1
  ...-> Insert 3 Rows here
  0.8
  0.7</p>
  
  <p>I currently have:</p>
  
  <pre><code>    Dim wb As Workbook
      Dim ws As Worksheet
      Dim LastRow As Long
      Dim i As Long
  
      Set ws = Worksheets("Report1")
      ws.Activate
  
      LastRow = Range("C" &amp; Rows.Count).End(xlUp).Row
  
  For i = 2 To LastRow
      If ws.Cells(i, 3).Value &lt;= 1 Then
              .Offset(1, 0).Resize(3, 0).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
          Exit For
      End If
  
  Next i
  </code></pre>