Erro 91与Cells.Find同时使用

Question

我最近开始使用VB。目标是找到＆＃34;数据＆＃34;并删除前面的两行和后面的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

请指正。提前致谢。