Delete all rows under a group

[Opv]

There is an error that says object variable or With block variable not set

Presuming there are never going to be any data rows below the row containing the cell with the value, "Closed Accounts," that you want to retain, the following might work for you (of course you may need to change your sheet name as applicable):

Sub testing()
    Dim rng As Range, fRow, lRow As Integer
    With Sheets("Sheet1")
        lRow = .UsedRange.Rows.Count
        fRow = .Range("B:B").Find(what:="Closed Accounts").Row
        Set rng = .Range("B" & fRow, .Range("B" & lRow))
        rng.EntireRow.Delete
    End With
End Sub