Unusal Range.Sort vba error

[Pi*]

Hi

I have a sort vba that sorts specific Range in X but for some odd reason it only sorts less than half of the data in decending order as it shpuld but the rest of the data in the same range doesn't seem to be sorted (data consist of numbers ranging from $0 to ($3000)) in the specified range which most often is not more than 39 rows.
I am not quite sure what I am doing wrong in my code below. I appreciate your time. Thanks

Please Login or Register  to view this content.

Thanks

Just a side note; the data in column O was Formatted as Currency but when I change it to Numbers it still doesn't solve the issue.

Thanks.

[Kaper]

1) headers shall be xlno not just no

Please Login or Register  to view this content.

2) key1 - it is enough to have just first cell, like:

Please Login or Register  to view this content.

3) you probably noted that some data is excluded from sorting (rows 54 and 85:92)
The other shall be sorted descending order (by column O) in each of 3 contignous ranges (rows 14:53, 55:84 and 93:103)
Of course any other column is not sorted

Please Login or Register  to view this content.

[Kaper]

PS. to avoid such problems as in 1) add declaration:

Please Login or Register  to view this content.

at the very top of the code in module.
You can force excel to add it automatically to every newly created module by selecting "require variables declaration" in Tools - Options in Visual Basic Editor

[Pi*]

Thank you Kaper.
I started from scratch using the same logic but different worksheet and it works fine now.

Thank you all for your invaluable assistance and advise.

Pi*