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.

[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]Dog[/TD]
[TD]Brown[/TD]
[TD]Charlie[/TD]
[/TR]
[TR]
[TD]Cat[/TD]
[TD][/TD]
[TD]Jack[/TD]
[/TR]
[TR]
[TD]Dog[/TD]
[TD]Brown[/TD]
[TD]Princess[/TD]
[/TR]
</tbody>[/TABLE]

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

[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]Dog[/TD]
[TD]Brown[/TD]
[TD]Charlie[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Cat[/TD]
[TD][/TD]
[TD]Jack[/TD]
[/TR]
[TR]
[TD]Dog[/TD]
[TD]Brown[/TD]
[TD]Princess[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

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