code for sort my database

hello
we enclosed here my sample data file

we want to sort data on Colum D (Cat & No) with following order
SH MDR ODR VR

currently when we sort data with sort command then data sort this order
MDR odr sh Vr

pls suggest me vba code

thank you so much

hi tehneXus

Actually ur currently code not sorting data as per my order
my order is following

SH.. MDR.. ODR....VR

currently ur macro sort this order
mdr oDR SH VR

thanks for responce