You may not need a macro, although of course you could encapsulate the procedure below in a macro. I'm reading this as you are wanting to delete rows from the Data sheet which don't have one of the keywords in columns b,c or d somewhere in the list of keywords in sheet2.
Create a helper column, say E on the data sheet with the following formula in E1
Copy E1 down the whole of your data
AutoFilter column E for the value 'delete'
Select all the filtered rows and delete them
Remove the Autofilter