I want to create a macro to remove the space After the String in the range. Tried Trim and doesn't do anything

Question

I want to remove the extra spaces after the text "Denver Health " into "Denver Health" for the range in column A. input: Column A