Delete Duplicates in Column D

Hello,

I need help with a second portion of a macro. The first was answered by watersev in a previous post. I'm trying to create a macro that will Delete Rows of Duplicates found in Column D. It will start with the first row it finds that is yellow and check to see if that Column D matches any other yellow Column D's. If it does then the row the match is in gets deleted. Right now it searches in between the yellow rows, but for this portion I'm looking for it to use the yellow rows only. I included a file that has the examples on sheet1 and the expected outcome on sheet2. Any help is appreciated and thanks again.

TestName.xlsm

That works. Thank you.

Sorry Sktneer, I got a little ahead of myself. It worked for the most part in the demo but when I tried it in the actual program I need it for it didn't work entirely. I included the same information from the top to the bottom of the testpage. What I'm trying to accomplish is for the macro to search for a yellow field in Column D. Once it finds a yellow field it will make that the primary key and check all other Yellow cells in Column D for a potential match(avoiding the cells that have no color value). If it finds a match it will Delete that row that corresponds to the match. Once its done searching for potential matches the macro will then go down Column D looking for another Yellow Field to make it the primary. I'm running this thru 60k files which is why I need it to keep switching primary key's and checking for duplicates. Right now it makes the top row the primary and finds the matches that corresponds to that value only.

TestName.xlsm

Almost, The only problem is that not everything in Column D is named Yellow. Like on the sample Sheet I have Blue in the columns as well. So that Duplicate should be caught. But these two values are not even in my regular data. In the regular data its a bunch of random numbers and letters which is why I need the program to search for itself thru the 60 files. Again I do appreciate the help.