Use sort method to sort ranges based on their headings using vba

[kris nuvio]

Hi..

I have several ranges in column B to D, and the heading of each range is in column A.
How can I sort the ranges based on their heading using vba?
The headings are text that i'd like to sort alphabetically..and i need the numbers under each heading needs to stay as they are.

I attached an example showing what my original document looks like..

Thank you in advance, Kris