VBA - Insert Row after certain value in Column

[bluelabel]

Hello VBAers,

I have a list of data where I need to enter a blank row under the row of where a certain value appears in a column.

Dog	Brown	Charlie
Cat		Jack
Dog	Brown	Princess

<tbody>
</tbody>

In the above example, every time Brown appears, I would like to enter an empty row beneath it. The result would look like this

Dog	Brown	Charlie
Cat		Jack
Dog	Brown	Princess

<tbody>
</tbody>

Hope this makes sense.

Thank you

 

[Michael M]

Try

Sub MM1()
 Dim lr As Long, r As Long
 lr = Cells(Rows.Count, "A").End(xlUp).Row
 For r = lr To 1 Step -1
    If Range("B" & r).Value = "Brown" Then
        Range("B" & r + 1).EntireRow.Insert
    End If
Next r
End Sub