trim

Hi,

I need to trim additional spaces from cells within the below range

        Range("A140").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select

I'm not sure how/where to include it?