Delete duplicate rows containing the oldest date and time entries

Hi,

I'm new to the forum and have only a basic understanding of vba.

I have a UserForm which writes data to rows in a master spreadsheet. I'm attempting to write some vba code for a CommandButton in the master spreadsheet which can identify and delete duplicate entries based on "user ID", "Date", and "Time". I would like the CommandButton to retain the most recent entry from a user and delete all previous entries.

My master sheet is set out as such...
A, B, C, D,
UserID, Date, Time, Response

The users could potentially submit multiple entries on the same day. Ideally I would like to be able to click a CommandButton and delete each user's submission but retain their most recent one (based on "UserID", then "Date", then "Time").

I've searched all day for a solution and I've come close but I can not figure out a code that accounts for my three variables ("UserID", then "Date", then "Time").

I've attached a sample worksheet in case anyone is able to help.

Thanks in advance!

Thanks for the quick response and the code Robert!

The code is working, although not quite in the way I was hoping for. This is maybe my fault as I might not have given you enough info to work with. Your code appears to be identifying duplicate entries made on the same date (column B) and then deleting the oldest entries for that date based on the time in column C. If the user then submits another entry the next day, the code appears to retain 2 entries for the same user (presumably because they have different dates).

The users could potentially submit many entries over a period of months. If possible I would like the CommandButton to delete every previous user submission except the latest one for each user. The end result should be that the spreadsheet contains only 1 submission (the most recent one) from each user. I've attached an updated spreadsheet with a few more entries on in case you need further info.

Thanks again for your help. It's greatly appreciated.

Hi Robert,

Solved! I've added your new line of code and it works like a charm. This is exactly what I was looking for.

I can't thank you enough for the help & quick responses. You wouldn't believe the amount of time I've spent trying to get this result.

Very much appreciated.