code for sort my database

try this on that sheet:

Sub Macro2()
    Dim i As Long
    
    If Application.GetCustomListNum(Array("MDR", "ODR", "SH", "VR")) = 0 Then
        Application.AddCustomList Array("MDR", "ODR", "SH", "VR")
    End If
    i = Application.GetCustomListNum(Array("MDR", "ODR", "SH", "VR"))

    Range(Cells(4, 1), Cells(4, 1).SpecialCells(xlLastCell)).Sort Key1:=Cells(4, 4), _
        Header:=xlYes, Order1:=xlAscending, _
        OrderCustom:=i, DataOption1:=xlSortNormal, _
        MatchCase:=False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin

End Sub