VBA - Format Rows containing word 'Total'

[tlc53]

Hi,
I'm using the function Subtotal on my Defined Name range. I would like to format the totals that come through, so that they stand out from the rest of the data. I would like to do this without necessary referring to exact rows/cells, so that the format will work even if the data changes.
My named range is 'CordisTest1'
My data headings are always on row 52
K52 is for heading 'Account' and is what the Subtotal function is based on.
I would like it if column K in my named range 'CordisTest1' contains the word 'Total', cells A:J to the left of it will be formatted to have a plain line border around only, fill 15% grey and be bold font.
Not sure if this is even possible. If not, please could you let me know. Thank you!

 

[tlc53]

The reason that you cannot see which data should be sorted is because you didn't place the code where I suggested ..

Sorry! I missed reading that bit.

So now I can see it is applying the sort. Only one small error is occurring. There is one category called "Free of Charge" which it is putting at the bottom, where in this case, it needs to go at the top. It has zero values associated with it but has 6x transaction lines.

So (in this example) the order it needs to be in as per K21:K35 is;

36164 (Free of Charge)
36165
36167
36168
36169
36170
36162

And the order it is putting it in is;

36165
36167
36168
36169
36170
36162
36164 (Free of Charge)

Is there perhaps a second sort in action that is causing this?

Thank you.

 

[Peter_SSs]

Any chance of another sample file with this in it so I can see what is happening and test any possible solution?

 

[tlc53]

Any chance of another sample file with this in it so I can see what is happening and test any possible solution?

I had a think about it and the solution was quite simple. I just ran the range from K20:K35 instead of K21:K35. That way it included the header.

Works an absolute charm. Couldn't have done it without you. Thank you for your help and your patience

 

[Peter_SSs]

Can't quite see how that made a difference but it doesn't matter. If it works, that's great. Thanks for letting us know.