Condensing Find Code

Hi Everyone

Is there a way to simplify the following code?

Cells.Find(What:="Selection", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Selection.EntireRow.Delete
    Cells.Find(What:="Site:", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    Selection.EntireRow.Delete
    Range("A15782").Select
    Cells.Find(What:="Item:", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    Selection.EntireRow.Delete
    Cells.Find(What:="Buyer:", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    Selection.EntireRow.Delete
    Cells.Find(What:="Prod.Line:", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Selection.EntireRow.Delete
    Cells.Find(What:="Supplier:", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Selection.EntireRow.Delete
        Cells.Find(What:="Purch/Manuf:", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Selection.EntireRow.Delete

I am in the process of learning VBA and I'm not too sure what can be deleted without upseting the code.

Thanks

On Error Resume Next
For Each e In Array("Selection", "Site:", "Item:", "Buyer:", "Prod.Line:", _
           "Supplier:", "Purch/Manuf:")
    Cells.Find(e,,,xlPart).EntireRow.Delete
Next

Thanks Mate