Filtering a Table and then putting text into a cell showing the current filter criteria

I have this 99% done, just cant get the final step. Need a Guru here... please. Using vba I made a custom function so right clicking on a cell in a table brings up a message box asking to filter the table based on the contents of that cell. After clicking yes.. the table is filtered.. and in a cell above the table is shown the filter criteria (shown with a custom format I made).. and a "Clear Filter" buttom is shown to clear the filter. All this works really great. Two (equally important) problems though. 1) If I change or clear the filter with the built in table controls, my code showing the "Clear Filter" button and filter criteria doesnt get activated. I need the cell showing the filter criteria to update even if the user uses the built-in table header controls. 2) I must run this with Application.Calculation = xlManual because the actual spreadsheet has 900 columns and to run this with calculations set to true greatly slows down scrolling speed. I attached my code in a sample file. The code is quite useful actually, but I have to tie it into the events of the table controls and I dont know how. If a Guro could offer me an advice, I thank you kindly.

I put "Application.Volatile True" into the function and "Application.Calculation = xlManual" into Workbook_Open(), it works except the same problem of the built-in table controls not updating the filter criteria and ClearFilter button. Isn't there anyone out there that knows code that forces a calculate when the built-in table controls are used??