Borrar espacios en excel

buenas tardes amigo una consulta tengo una base de datos en excel extraída por sql de un as400 en el excel me trae excesos de espacios antes, entre y después de cada palabra quería ver si podrían facilitarme alguna macro para borrar todos los espacios innecesarios la macro esta desde la A1:GM7000 es una base de datos muy grande