Code:
Sub Macro6()
Cells.Find(What:="AUTO.WHSE.", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
Rows(ActiveCell.Row & ":" & (ActiveCell.Row + 2)).Delete
End Sub