Custom sort without custom list

Hello everybody
I have a sheet named "Data" which contains cutom list on which I need to sort column C in sheets("Report")
I don't want to use custom list feature ( Application.AddCustomList )


I need to depend on the custom list in range("B2:B8") in sheets("Data")

I found UDF function but can't apply it
This my try but I got an error

Sub CustomSort()
    Dim Sh As Worksheet, LR As Long
    Set Sh = Sheets("Report")
    LR = Sh.Cells(Rows.Count, 1).End(xlUp).Row
    Sh.Range("A4:E" & LR).Sort Key1:=Range("C4"), OrderCustom:=SortItems, Header:=xlYes
End Sub

Function SortItems() As String
    Dim ArrSort() As Variant
    Dim RngSort As Range
    Dim I As Long
    
    With Worksheets("Data")
        Set RngSort = .Range("B1:B" & .Cells(Rows.Count, "B").End(xlUp).Row)
    End With
    
    ReDim ArrSort(1 To RngSort.Rows.Count)
    For I = 2 To UBound(ArrSort)
        ArrSort(I) = RngSort(I, 1)
    Next

    SortItems = Join(ArrSort, ",")
End Function

The error is at this line

Sh.Range("A4:E" & LR).Sort Key1:=Range("C4"), OrderCustom:=SortItems, Header:=xlYes

Sort method of range failed 1004