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

**kris nuvio** · 02-22-2013, 08:20 AM

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

**OllieB** · 02-22-2013, 08:26 AM

kris,

the only way I can think of is:
step 1: copy the header value to the applicable "number rows" belonging to that header (so basically fill A2 to A6 with value "AB", and repeat this for headers "KL" and "CD")
step 2: sort the entire range on column A only
step 3: remove the values in column A for those rows where the cell in column B is not blank

**OllieB** · 02-22-2013, 08:38 AM

Kris,

In VBA this would look like

Please Login or Register  to view this content.

**kris nuvio** · 02-28-2013, 03:50 AM

Thank you Ollie!

That might be a good way of solving my problem.
I will test this as soon as I can to see if it works..

**kris nuvio** · 03-01-2013, 07:33 AM

The code works perfect, but there's still one thing:
How do I move the whole row with the sort method in the bottom of your code?
Cause I have more info in other columns that should follow the "A"-cell