Copy row and paste below when cell value found in a column
<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>