VBA to sort the column I selected but not remove filters

[tonywatsonhelp]

Hi Everyone,
I have data in range AA15:AZ2000

Row 15 are the headers,
I use the standard excel filters to select the data i want to see. so any of these columns could have a filter on them.

what i want to do is have a macro that when i select a header and then run the macro it sorts that column (for example AH15:AH2000) A to Z, but puts all the blank cells at the bottom.
also I want the macro to sort the data but not reset the filters.

Is this possible? and if so could someone please help me as I can't figure it out

Thanks

Tony