find text then delete two rows below it including row of found text

[leanne2011]

Hi

I need code to find "Grand Summaries" and then for it to select that row with it in it along with the two rows below it

Many thanks

Range("a2").Select
 Cells.Find(what:="Grand Summaries", After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Activate