Delete all rows under a group

[CodeNinja]

This might work for you...

Sub deleteAll()
    Dim rng As Range
    Dim rngDelete As Range
    Set rng = Sheet1.Range("B:B")
    Set rngDelete = rng.Find(What:="Closed Accounts")
    Sheet1.Range("B" & rngDelete.Row & ":B" & Sheet1.Range("B65536").End(xlUp).Row).EntireRow.delete
End Sub