Macro to reorder duplicates (with condition that no two can be after the other)

Thank you, Kaper! It seems to work, but there were two places where duplicates were still together. I'm pretty sure it was something that I did, but this is what I changed in the code:

Const dates = "A", fromcolumn = "A", numcolumns = 4, fromrow = 1

The data with the dates is in column A, there are 4 columns of data that needs to stay with those dates A:D, the first row has the names of those columns. Did I do this correctly? Thanks for the help.


There were still duplicates in John's approach, but I did not change the code to fit my data so that may be why