code to insert dash sign

Dear friends,
In my file ‘contacts’ I want to insert dash sign in columns ‘q to AA’ if there is a word ‘company’ in column ‘f’.

I want to execute this function at the time of sorting. That means when the ‘sort’ macro will run. I want to add the code for it in ‘sort’ macro instead of creating a new macro because I want to execute this function simultaneously after sorting.

Please provide me a code for it in ‘sort’ macro.

Thank you in anticipation.

Mukesh