Delete Non Matching Rows in Excel Using Existing Macro

I need to enhance an Excel Macro that I am already using. Currently I use a macro where sheet 1 is a very long list and sheet 2 is a much smaller list. The macro compares sheet 2 against sheet 1 and will delete rows in sheet 1 where there is not a match in column A in sheet 2. I found my existing Macro here: [login to view URL] I now need the Excel macro to evaluate TWO values from sheet 2. The macro now needs to evaluate column A and column D on sheet 2 and compare these same values that will reside in the same columns in sheet 1. If there is not a exact match for both records in sheet 1 then the entire row gets deleted. I am uploading an example Excel enabled macro workbook with the Macro that I currently use with some sample data. I have colored the rows yellow, blue and some rows have no colors. Currently the macro will remove the non colored rows only and keep the yellow and blue rows. You can run the macro and see how it works. I need the enhanced macro to delete non colored rows AND delete the yellow rows while only keeping the blue rows in sheet 1. You will notice the blue colored rows in sheet 1 are an exact match to sheet 2.