VBA: If 2 cells in Row are yellow Delete last

I need to add a part to my macro. I need it to go through each row and if there are two yellow filled cells next to each other, then delete the second. The yellow is .color = 10092543. How can I do this in VBA. Thanks for help.