Sub DeleteRows()
Dim c As Range
Set c = Cells.Find(What:="ASC database on SQL Server", _
After:=Range("B1"), LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
Rows(c.Row & ":" & c.Row + 20).Delete
End Sub

Hth,
Merjet