VBA Not Sorting?

I have an Excel sheet with numerous sets of data aligned vertically on the page.

For instance,

Set 1
-102
-340
-52

Set 2
-55
-676
-23

Etc.

I'd like to sort all of these sets from largest to smallest. I created a macro using filters, and another using the sort dialog box, and neither worked.

Here's an example: VBA Sorting Example.xlsx

Anyone have any ideas?

First question is why are all your numbers negative or is that a dash?

I have sorted by column C and by Column D with no issues.

The attachement is sorted by column D