Customized sorting

Hello,
in my book i have two areas and for each import to be made, i will have to filter the data in the order of the words in column c.
My list with different options as filter is bigger from 422 characters and i can not make it.
Have anyone any idea how it can be done?

You obviously did not understand how the alphabet I have as a list, I have it as an example.
The words that will be in the column C will have a sorting order, my own, no relation to the alphabetical order of the letters.
I'm trying to find out how to define my own order of sorting in these words.
Thanks for your time 63falcondude.

Ok i will have it ready in a while, thanks.

the new book is ready with an example.

Thanks for your help but i think that is not working as i need. i insert 2 more people but it nothing happening to your area.

Im not a familiar with pivot tables and i dont have an idea with this.
So the first question is, why some letters are not showing?



Thw second question is, A B C will be replace with other content and the other content will not be in alphabetical order. how can i have it in the order that i want?
Thanks

Well, u had nice skills in excel as i see, thanks for your tips was usefull for mee too!! having health issues is annoying. lots of money is spend on rx costs and not left enough to study. thanks to this site i can do both. thanks.

Woh, then i think that is not for my book. I need to have my own order to 35 different words.
Anyway, thanks all of you very much for your time.

Hello people i believe you are well!
I will make a second attempt to explain what I need.
I have all the details in the book, with an example.
If anyone can help me, I will be grateful to him.
Thanks in advance

Click on Office Button Left side corner of excel
> Excel Options > Popular > Edit Customer List > Import (Click the Button besides Import) > Select the Cities list from your excel sheet > Import > Add > OK > OK

Then select the data you want to sort > Sort > Order > CustomeList > Select cities from Customs list

Thanks for your help but is showing again alphabetically. I dont know whats going wrong.

I find a way and i record the macro that i need.
In second line im trying to add "ActiveSheet Unprotect ="my password"" and in the end to protect again, but i take a message for word "hidden". It doesnt complete the macro. What im doing wrong?

Sub SetSordingOrders()
    Application.ScreenUpdating = False
    Range("C6:F6").Select
    Selection.AutoFilter
    Range("C6").Select
    ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Add Key:= _
        Range("C7:C31"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder _
        := _
        "my criteria" _
        , DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Add Key:= _
        Range("D7:D31"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWindow.SmallScroll Down:=-27
    Range("C6:F6").Select
    Selection.AutoFilter
    ActiveWindow.SmallScroll Down:=21
    Range("C32:F32").Select
    Selection.AutoFilter
    Range("C32").Select
    ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Add Key:= _
        Range("C33:C75"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder _
        := _
        "my criteria" _
        , DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Add Key:= _
        Range("D33:D75"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("C32:F32").Select
    Selection.AutoFilter
For Each cell In ActiveSheet.Range("D7:D31, D33:D75, D77")
If cell.Value = "" Then
cell.EntireRow.Hidden = True
Else: cell.EntireRow.Hidden = False
End If
Next
    Range("C6").Select
    Application.ScreenUpdating = True
End Sub

Did you try the suggestion in post #19?

Yes i try it, i record this on a macro for two areas. It was difficult to have it only with filter because i have three rows with empty cells, and the second row with empty cells doesnt let other rows until down filtering as i want.

I found my fault, it was "=" and it doesnt let me to continue.