Run time Error 91 - End Loop not working correctly

I have no knowledge whatever of programming languages so I am hoping that someone can be of help. I need to take a report exported from a Filemaker Pro database as a .pdf document and import the report into Excel 2007. The report can only be exported as a .pdf file. I have saved the .pdf file as a text document and imported the text document into Excel. I have then created a macro by using the record macro function to delete irrelevant data from the column. The difficulty is that when I try to loop the macro to perform the operation through the entire column of data I receive a Error 91 message. I assume that the macro is not ending the loop properly. Below is the code. If anyone can help with how to close the loop properly that would be wonderful.

rowing 190

Sub April2009()
'
' April 2009 Macro
'

'
Do While Cells.Find(What:="April 2009", after:=ActiveCell, LookIn:=xlFormulas, LookAt:= _xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _,SearchFormat:=False).Activate
Selection.delete Shift:=xlUp
Loop
End Sub