|Nice code. I added an IF clause to allow the macro to be run multiple times.|
As originally written, the code will insert a new row each time it is run and finds a value >10. You could end up with multiple new rows under existing values >10 each time it is run.
With the addition of the IF clause, the code will only insert rows where appropriate to ensure a single blank row below each >10 value. That way it can be re-run afer a new value is entered in Column G without doubling-up the existing blank rows.
I'll admit that I don't know if mrsjankowski wants multiple new rows under each >10 value or not, so I offer the modifed code as an option.
Dim URange, LRange
Dim BCell As Range
Set URange = Range("G1")
Set LRange = Range("G" & Rows.Count).End(xlUp)
For Each BCell In Range(URange, LRange)
If BCell.Value > 10 Then
If BCell.Offset(1, 0) <> "" Then
Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.
message edited by DerbyDad03