Excel VBA code to group rows based on a cell value

Hello,

i have a list of items organized in : project, activities and sub-activities (Column "A"). They have a specific index - level number, Project = 0, Activity = 1, Sub-activity = 2. These numbers are in column "B".

The data looks like this :

Column "A"

Example Project
Activity 1
Sub-activity 1
Sub-activity 2
Activity 2

Column "B"

0
1
2
2
1

What i would like to have is, when the macro runs, all the level 2 should group under the level 1 and all the level 1 (with the level 2 grouped) should group under level 0.

I explained well my problem and my needs, i don't think it's necessary to upload 2 sample workbooks.
If anyone could help me that's fine, otherwise I'll try another forum.

Thank you Nigelog for the answer. I tryed but it changed the order of the level's number. I want to maintain the same order and compress data of column "A" with level 2 into level 1, the small + in the left panel should also appear.

Maybe this could help you :

Project 1 0
Act 1 1
Sub-act 1 2
Sub-act 2 2
Act 2 1
Act 3 1

When macro start, this should happen :

(-) Project 1 0
(-) Act 1 1
Sub-act 1 2
Sub-act 2 2
(+) Act 2 1
(+) Act 3 1

Makes no sense to me. Maybe someone else could help

I added an attachment, try to see that code. It almost work.

Workbook does not help in explaining what you require
Data does not even contain what you have in your posts

Make up cells which represent data BEFORE macro and then AFTER macro so that your line of thought can be followed

Originally Posted by nigelog

Workbook does not help in explaining what you require
Data does not even contain what you have in your posts

Make up cells which represent data BEFORE macro and then AFTER macro so that your line of thought can be followed

I will solve it myself, no problem.