custom sort according to header in each sheet

hello sir ,
its 90 % working in right direction ,
but its leaving black cells in between .
if you check my "AFTER" sheet , there is no black cells .

i think vba calculate A1:E1 from order sheet .
but actual order should be
("A1:A10", "B1:B10", "C1:C8", "D1:D13", "E1:E7")
but i am happy with this too , thank you for you help and cooperation

I meant to say, in your sheet "Order" for all data columns, below the cells in each column with Data, there are Blank cells that have something in them, and the code uses the blank cells.
I don't know whats in them but I had the same trouble as you, before I found out what was causing it.
What you need to do is move the whole range to some spare place on the worksheet and then Copy and paste back each individual column of data.
Make sure you only copy the Data in each column.

wow ....prefect ....excellent sir ,

million thanks for your help and guidance

and for trying again and again till you found end result ...

You're welcome