Deleting Row Duplicates

I have attached an extract of a worksheet where I import a csv file find the duplicate bits of information based on 5 cell values form sheet Temp5 and return True or False in column AI of sheet1. The position of the data is where it is found on its respective sheets.

The assistance I am looking for is to delete the duplicates (red blocks of data) on sheet Temp5 and move the cells left. The data will always start from row 4 and the maximum would be 100

Any assistance would be greatly appreciated. Thank you

AlphaFrog you are definitely on my Christmas list - works perfectly. Thanks

Joe,
While learning VBA, resize was the most difficult concept to understand and spent hours in frustration.
The way you should think is " One way stretching". And always starts from 1, while offset can go both ways(Negative for back ward) and starts from 0.

Let say you have range (cells(I,1),cells(I,5)).Select where I is the row number(1). You are selecting row1 1, column 1, to row 1 column 5. You are going 5 to the right from column 1. You can do the same with resize.
Cells(I,1).resize(,5).select. You are stretching 5 to the right from column 1, in other words, takes you from column A to column E. The stretch (resize) is 5. So you have a starting point and go to right or below, choosing a number to stretch.
I hope this helps.

AlphaFrog - As outline in the personal note I sent, I have a little problem with how the code has run in my actual file. It deletes when there is a single duplicate. It appears to work fine when it was in column A but when I copied the code over to my file I get this problem. I have attached another file of sample data and the macro enabling you to review. As for the Greatful; I'm just a poor speller. Again thanks

AlphaFrog - Again many thanks - I have tested and it works a treat