Excel中使用Range.Find的故障91

Question

我当前正在将数据导入excel，如果要在B列中找到搜索查询，我想使用vba代码删除带有“”和“ total”的所有行。我的代码似乎可以正常工作“”，但是当我复制代码并将其用于“总计”时，出现错误91。我还是vba代码的完全业余爱好者，并且会在响应中享受简单的语言。请和谢谢！

在Windows 10 Excel上运行。导入的数据都是纯文本格式。试图绕过“直到”语句，反转结束条件，并添加“退出执行”，但最终无法执行任何操作。

Sub Blanks_which_works()
    Do
        Range("B:B").Select
        Selection.Find(What:="", LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Select
        Selection.EntireRow.Delete
    Loop Until Range("B:B").Find(What:="", LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) = False
End Sub

Sub Totals_which_does_not_work()
    Do
        Range("B:B").Select
        Selection.Find(What:="total", LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Select
        Selection.EntireRow.Delete
    Loop Until Range("B:B").Find(What:="total", LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) = False
End Sub

我希望运行两个宏而不会弹出任何错误。当前在“总计”上收到错误91。