Run-time error '91': Object variable or With block variable not set

Hi,

Would anyone know how to resolve this error?

It's this part of the code that's causing it.

Selection.Find(What:="********REPORT********", After:=ActiveCell, _
        LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
    Range("A72:I72").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlToLeft

I essentially want to delete all rows including this one (based on the find search) to the end of the sheet,row1048576. It seems the way I have done this has restrictions on the row # (A72:I72) - This would change each day depending on the size of the report. I want to be able to just delete all information based on what row the find criteria is.

I may have 2 issues, 1 being the error 91, and the other for selecting which rows to delete based on what row the find criteria is in.

This is a work around to clean up a report that is in xml format. some companies just aren't up to speed in reporting (no csv, xsl, or text).

Thanks for the help.