Quote Originally Posted by p45cal View Post
Having just seen Artik's answer, I might have got it wrong.
An alternative to Artik's:
  1. In cell E2 enter a 1
  2. In cell E3 enter a 2
  3. Select E2:E3 and autofill down
  4. Dropdown arrow in column E's header, choose Sort Largest to Smallest
  5. On the Data tab, Data Tools, choose Remove Duplicates
  6. In the dialogue box, have only a single tick against the Name column, click OK
  7. Dropdown arrow in column E's header, choose Sort Smallest to Largest
  8. Delete columns E and Day.
Why you say you got it wrong?

Your code seems to work fine to me