VBA code to Sort 4 columns on highlighted selection

[LtCmdrData]

I have a spreadsheet with 34 columns of data. Not all of the rows are continuous. I want to have the user highlight a section of rows and then run a macro that sorts the highlighted section first by column P, then by column M, then by column J, and finally column G in ascending order and no headers. It has been awhile since I tried vba coding so I am rusty and I have never been good with declaring variables. This seems like a simple task but I have been unsuccessful in modifying code I have found on the internet. Thank you in advance for your help.