VBA to custom sort on custom list

Hello. I have a short macro to custom sort some financial reports, and I have been asked to include a new column to sort from first. The problem I am having is that I need to sort this from a custom list and am not sure how to go about doing so in VBA. The column that needs to be sorted first is a Risk Factor column, and it needs to be sorted first, in order from High Med Low, in column E. Is this possible to do without scraping the macro and doing a 'record macro' instead? Here is the code I am using to sort the rest of the data:

Please Login or Register  to view this content.

Thank you in advance for any help you can provide.

Thank you very much! After a little more playing around I was able to get it with basically the same code you have above:

Please Login or Register  to view this content.

Thanks again. Marking solved and +Rep.