Sort columns in a predetermined order bases on headers (not alphabetic)

Are there any way to sort headers in a predetermined way? Example
Right now the order is:
Candy
Food
Shoes
Computers
Shirts
Towels

Is there any way to sort them in another way? These are just made up categories in the real example there are around 30 different that has to be en a specific order (not alphabetic). So how can I do to sort the above mentioned in this order?:

Food
Computers
Shoes
Shirts
Candy
Towels

Thanks in advance

You could insert a new row 1, then enter numbers representing the sort order that you require, i.e. above Candy you would have 5, and 1 for Food, 3 for Shoes, 2 for Computers, 4 for Shirts and 6 for towels (and so on). Then highlight those columns and click on Data | Sort | Options and choose Sort Left to Right, then choose Row1 for the sort order, Smallest to Largest and click OK.

Then you could delete row 1.

Hope this helps.

Pete

Thanks Pete!

I was thinking of doing that but the thing is that I am going to repeat this a lot of times with sheets that export from our CRM-system. In order to avoid as much manual work as possible, are there any way to code the predetermined order in VBA?

Thank you very much OllieB

Can i use any lastrow function here?

It says "Subscript out of range"

That the strange thing. It is called Sheet1

Now it works! Thank you so much Ollie!