How to write a macro in excel to take off percentage