Excel VBA 사용자 정의 정렬이 제대로 작동하지 않습니다

좋아요. 그래서 참조 테이블을 통해 분류 된 테이블에서 사용자 정의 정렬을 시도하고 있습니다. 여기에는 참조 테이블의 작은 부분이 있습니다.

이제 분류 표를 정렬 할 때마다 이것이됩니다

보시다시피, 그것은 특정 수의 행까지만 정렬하고 (C&J Global Enterprises) 나머지는 알파벳순으로 정렬됩니다 (내가 원하는 것은 아닙니다)

여기 내 VBA 코드가 있습니다

Private Sub WorkSheet_Activate()
Dim MainSheet As Worksheet, RefSheet As Worksheet
Set MainSheet = Worksheets("Classifieds Client Table")
Set RefSheet = Worksheets("RefTable")
Dim RangeOne As Range, RangeTwo As Range
Set RangeOne = MainSheet.Range("A2:A150")
Set RangeTwo = RefSheet.Range("A1:A137")
Dim MainRange As Range
Set MainRange = MainSheet.Range("A2:H150")
Application.AddCustomList ListArray:=RangeTwo
MainSheet.Sort.SortFields.Clear
MainRange.Sort Key1:=MainRange, Header:=xlNo, _
OrderCustom:=Application.CustomListCount + 1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Application.DeleteCustomList Application.CustomListCount

미리 감사합니다!