Ошибка «Ошибка удаления метода класса диапазона»

Question

Я пытаюсь найти и удалить строки, начинающиеся со значения "#" в моей рабочей таблице, и каждый раз, когда я пытаюсь удалить найденную строку, я получаю следующую ошибку.

Ошибка удаления метода класса диапазона 1004 "

    Dim wb As Workbook
    Dim ws As Worksheet
    Dim FoundCell As Range
    Set wb = ActiveWorkbook
    Set ws = ActiveSheet

        Const WHAT_TO_FIND As String = "#*"

        Set FoundCell = ws.Range("B:B").Find(What:=WHAT_TO_FIND)
        If Not FoundCell Is Nothing Then
            MsgBox (WHAT_TO_FIND & " found in row: " & FoundCell.Row)
            'MsgBox (FoundCell.Row)
            FoundCell.EntireRow.Delete ' giving error "delete method of range class failed" here.
        Else
            MsgBox (WHAT_TO_FIND & " not found")
        End IF