使用VBA修剪功能/从单元格中删除空格

I am using the code below to trim some "blank cells" that contain a space. The thing is it takes too much time, as is looping to every cell. What I want is to remove the spaces(the ones in the beginning and end, not middle), of all the cells.I am using the code below to trim some "blank c