title: Copy row and paste below when cell value found in a column
body: <p>I have pretty limited knowledge of VBA so hopefully I can explain what I'm trying to do! I'm trying to copy a row if it has anything > 0 in column J. </p>
  
  <p>I then want to insert this copied row into a new row bellow that copied cell. </p>
  
  <p>I would like this to loop through the whole worksheet so that every row with a value in J is repeated, the data in the worksheet varies in size, there will always be a value in column B till the data ends... </p>
  
  <p>Here's my failed attempt to far..</p>
  
  <pre><code> Sub Copy_Cells()
      For Each Objcell In ActiveSheet.Columns(10).Cells
      Do
       If Objcell.Value &gt; 0 Then
           Objcell.EntireRow.Select
          Selection.Copy
          Selection.Insert Shift:=xlDown
           Exit Sub
           Loop Until IsEmpty(ActiveSheet.Columns(2).Cells)
      End If
  Next Objcell
  
  End Sub
  </code></pre>