Sort a row by the frequency of the numbers

Range("A1:A8") contains numbers:
1
2
5
5
5
5
2
2

I need some VBA to sort it as: (From the most frequent number to the least frequent)

5
5
5
5
2
2
2
1

Hi,

you can enter Mode formula (=MODE(A1:A8) in a random cell - let's say C1.

Then the code will look like that

Please Login or Register  to view this content.

Thx for the quick reply.