MultiLevel Sort till end column

Hi,

I am having difficulty on the macro to do multilevel sort by color.

Criteria
- Sort each column that have highlighted till end column (this can be about 40 columns and 500 rows data)
- Ignore the column that no highlighted cell
- Keep the information align when sort across column and row

Below is the VB that tried to develop but seems not working as expected. Attached is sample data Before and After in sheet1. I have done manual by custom sort.

Please Login or Register  to view this content.