sorting out values from highest to lowest using VBA

Hi guys, I need you help

I need to set up a piece of VBA code that would take given area of data(titles and values), sort them out from highest to lowest and index them starting from A59 (Titles) and B59(Values).
I want to use the code for several sheets, where the lenght of the data area may differ, so it would be great if the area of DATA would be a variable specified for example in:

A53 - The start column of the titles
B53 - The end column of the titles
C53 - The start column of the values
D53 - The end column of the values
A56 - The row of titles
B56 - The row of values

I've included the sample file. In case you don't understand what I mean

Thank you, any help will be appreciated.*
samplio.xlsx