VB Custom Sort Needed

I need to add add a custom sort in my VB code.

The first button is just sorting by number - that is ok
The 2nd & 3rd buttons need the sort added for Division - - the sort order needs to be ( "O", "P", "J", " " ) found in column B

I'm attaching my spreadsheet....

Thanks!

I was able to steal some code from another program and got it to work.
Thanks.