Excel Formatting: Cleaning up information so it looks consistent

Thank you very much guys that was great!

You could use this code in a module to save having an extra column.

Sub macro1()

Range("A65536").End(xlUp).Select
ii = ActiveCell.Row

        Do Until ActiveCell.Row = 1
Range("A" & ii).Select
aaa = ActiveCell.Value
bbb = Application.WorksheetFunction.Proper(aaa)
ccc = Application.WorksheetFunction.Trim(bbb)
ActiveCell.Value = ccc
ii = ii - 1
        Loop

End Sub