Delete all rows under a group

[snb]

Wouldn't this suffice ?

Sub snb()
Columns(2).Find("Closed Accounts", , xlValues, xlWhole).CurrentRegion.EntireRow.Delete
End Sub

or

Sub snb()
Columns(2).Find("Closed Accounts", , xlValues, xlWhole).resize(cells(rows.count,2).end(xlup).row).EntireRow.Delete
End Sub