Vb.net Erro 91与单元格一起使用时。查找

我最近开始使用VB。目标是找到单词“Data”并删除前面的两行和后面的5行

但结果是一个错误。请纠正我

While Cells.Find(What:="Data", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False).Activate
Fnd = ActiveCell.Row
Frm = Fnd - 2
Too = Fnd + 5
Rows(Frm & ":" & Too).Select
Selection.Delete Shift:=xlUp
Cells(Frm, 1).Select
Wend

---

请纠正我。提前谢谢

是否要在整个网格中检查

数据

？要删除行或列吗？您好，谢谢回复。是的，我想搜索所有的行。“数据”在第一列中可用，但显示在许多行中。我想删除包含“Data”的行周围的行。也就是说，如果第一列包含“Data”，您想删除特定的行，是吗？是的！。实际上，所有代码都正常工作并完成了任务。然而，它在“数据”最后一次出现后给出了错误。