Sort Descending & back to Original Order - Two independent data sets

Hi

I was wondering if someone can help me with some macro wizardry for a Dashboard project. I’ve used the search function but could not find a full answer to my problem.

I have cost data divided into two groups (direct/indirect expenses). In each of the cost groups there are two separate columns showing the percentage delta between 1) the previous year and the current run-rate and 2) the percentage change month-on-month.

The goal is to enable the end user to sort both of these columns in descending order via a macro assigned to shapes. A third shape should undo the sorting and change the data back to original order.

I am a beginner with macros and therefore have no idea how to accomplish this. Here is my attempt which is only one part of what I am trying to achieve.

Sub sb_VBA_Sort_Data_Descending()
With Worksheets("Data")
Range("B4:H7").Sort _
Key1:=Range("H3"), Order1:=xlDescending
End With
End Sub

I would appreciate any help I could get.

Thank you!

Just a question;

When I opened the file, I can not find any common order in any column between 2 lists.

So,
What do you mean by "Original order"?
When user close the file without get them back to the "Original order", would "Original order" be the one with the last order they changed?
Or is there any special order in your mind?

Hi Jindon,

Let me clarify what I meant by the order. The two data sets (Ranges B3:H7 and B11:H15) are currently not sorted. In my original file I pulled data from a table via SUMIFS into the format as you can see here.
I now want the user to be able to independently sort descending based on column E and H. To be more precise the user can decide whether he wants the dataset sorted descending based on column E or column H. The icing on the cake would be to restore the original order, e.g. the order that existed before he started applying the filters. Hope my explanation provided some clarity.

Thanks for looking at this!