Problem with sorting

[RobertAgius]

Hello, so I need to sort some values within an array and whenever I hit Run, Excel stops responding. I have a feeling that the problem has to do with a mistake in a loop but I cannot find it. Can any one help please? W10 - A1.xlsm

[RaulRodriguez]

Your loop in the sub Ascendingshear should be Do Until i>=m not just > m

[RobertAgius]

Well the program works now but instead of sorting the values in ascending order they are all given the value of the smallest one.