Need help to delete rows based on cell content

I need a macro that will delete rows when column A doesnt contain certain things.
Here is a sample

Please Login or Register  to view this content.

I want all rows deleted unless column A contains "Distribution", "Purchase", or a Number 1-9

Result:

Please Login or Register  to view this content.

Thank you

Originally Posted by BigBas

Try this code and report back:

That did it!

Thank you very much!