Remove Duplicates and Spaces within a Range in a Row

I have a spreadsheet with around 5,000 rows. Looking at the sheet on a row by row basis, within Columns D to P there are a number of duplicate entries. Is there any way of removing the duplicates within a row (rather than a column) and also removing the spaces this leaves.

I've attached a basic sample to demonstrate what I have as a starting point and what I need to end up with. Removing the duplicates within each row for columns D to P and moving the items to remove the spaces this leaves on a row by row basis manually takes for ever.

Many thanks

Hi Holger,

This code seems to remove 'all' duplicates. What I need to try and achieve is to only remove duplciates when they apper on the same row and within that row. It may be that say 'Red' appears on several rows. I would only want to remove red (and any other duplicates) where they appear more than once on the same row, not across the whole sheet, as per the sample I posted.

My VBA is very limited, so unsure how I would go about adapting the code to achieve this...

Many thanks