รบกวนขอโค๊ด vba ที่ใช้ในการ sort ตัวอักษรครับ

[enjoygo]

Code: Select all

With Sheets("F").Sort
        .SortFields.Clear
        .SortFields.Add _
        Key:=Range("d" & 1 & ":" & "d" & xz), _
        SortOn:=xlSortOnValues, _
        Order:=xlAscending, _
        CustomOrder:="BASE", _  '********
        DataOption:=xlSortNormal
        .SetRange Range("A" & 1 & ":" & "o" & xz)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
 End With
 

ตรงเครื่องหมาย ******** จริงๆแล้วในไฟล์เป็น BASE040
อยากให้โค๊ด sort แบบ left((" "),4) หาเฉพาะคำว่า BASE คำที่เกิดมาให้ไม่สนใจ
ผมต้องใส่คำว่า left(" ",4) ตรงบรรทัดไหนของ code หรอครับ

[snasui]

กรุณาแนบไฟล์ตัวอย่างพร้อม Code ทั้งชี้ให้เห็นว่สาต้องการคำตอบเป็นอย่างไรมาด้วยเพื่อจะได้สะดวกในการทดสอบครับ