You don't need vba  to do this, just a basic sort. With any cell in the
list active, select 'Sort' from the 'Data' menu and the dialog which
comes up will allow you to sort  on an ascending or descending basis by
any column. Play with the various options and you'll soon see how it
works.

I'm not sure what you mean about this extra column. Please elaborate.