Macro sorting multiple sets of columns

Hello good people!
I have made a form for bird population used as reference to our result program. We have seen that it is a problem for people to deliver a useful list of birds and this make us use/waste a lot of time to sort things out when we update this with our result-program. So I have am trying to make a form to eliminate the problem. I have translated my form to English as best I can.
My problem is a macro that sort multiple sets of columns in a certain way. It is possible to edit in all cells in the columns in the form. The sorting must be in a certain way, like this ; 1. A/U, 2.Year, 3.Ringnr., 4.Club. And like this in all 3 sets of columns. (A means male and U means hen).
I need the sorting to be in a way that wherever the member write the information of his birds in the form, it is sorted and eventually moved to the left set of columns, when that is full it continues to the middle set of columns and then the right set of columns. And at the same time also sorted as described over with 1., 2. etc. The sorting is done whenever the member press the button "Sorting". I have also made a keyboard shortcut for the same function, Ctrl+s.
I have made a macro that works well in the left column, but I am not able to make it work with all three sets of columns as I need to. Whatever I try out in my macro it fails. I am out of ideas and knowledge.
I would appreciate help with this. If anything is unclear I am at your disposal.
I send as attachment the whole file, translated to English and unlocked. There is formulas in some cells and I guess you will see that. I case if the macro did not follow the file, I have copied it in the word-file.
Sub Sorter.docxPigeon population Form 2.xlsm

Try this and see if it does what you want

Sub Sorter()
Dim iresult
'
' Sorter Macro
'
' Keyboard Shortcut: Ctrl+s
'
    iresult = Sorter_2("F6:F59", "C6:C59", "E6:E59", "B6:B59", "B6:H59")
    iresult = Sorter_2("N6:N59", "K6:K59", "M6:M59", "J6:J59", "J6:O59")
    iresult = Sorter_2("T6:T59", "R6:R59", "S6:S59", "Q6:Q59", "Q6:V59")
    
''    ActiveWorkbook.Worksheets("Duebestand").Sort.SortFields.Clear
''    ActiveWorkbook.Worksheets("Duebestand").Sort.SortFields.Add Key:=Range( _
''        "F6:F59"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
''        xlSortNormal
''    ActiveWorkbook.Worksheets("Duebestand").Sort.SortFields.Add Key:=Range( _
''        "C6:C59"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
''        xlSortNormal
''    ActiveWorkbook.Worksheets("Duebestand").Sort.SortFields.Add Key:=Range( _
''        "E6:E59"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
''        xlSortNormal
''    ActiveWorkbook.Worksheets("Duebestand").Sort.SortFields.Add Key:=Range( _
''        "B6:B59"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
''        xlSortNormal
''    With ActiveWorkbook.Worksheets("Duebestand").Sort
''        .SetRange Range("B6:H59")
''        .Header = xlGuess
''        .MatchCase = False
''        .Orientation = xlTopToBottom
''        .SortMethod = xlPinYin
''        .Apply
''    End With
End Sub
Sub Utskrift()
'
' Utskrift Macro
' Utskrift
'
' Keyboard Shortcut: Ctrl+p
'
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

Function Sorter_2(Rng1 As String, Rng2 As String, Rng3 As String, Rng4 As String, Rng5 As String)
'
' Sorter Macro
'
' Keyboard Shortcut: Ctrl+s
'
    ActiveWorkbook.Worksheets("Duebestand").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Duebestand").Sort.SortFields.Add Key:=Range( _
        Rng1), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Duebestand").Sort.SortFields.Add Key:=Range( _
        Rng2), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Duebestand").Sort.SortFields.Add Key:=Range( _
        Rng3), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Duebestand").Sort.SortFields.Add Key:=Range( _
        Rng4), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Duebestand").Sort
        .SetRange Range(Rng5)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Function

Dear ihmha. I have tried your macro and Your macro works perfectly for sorting each set of columns separately. But that was however not what I had in mind. I wanted the three set of columns to be sorted as if they where one set of column. I need it to like this with three sets of columns for a useful print out, with all on one side. I never the less, thank You for your effort, Sir.

Dear AlphaFrog. You have understood what I need on the spot. I did not know that the merged cells made trouble, but after I read your post, I can understand that it actually does. I made that only for making it prettier where the member name is on the top of the sheet. I have now deleted the extra column and there is no longer any merged columns in the sheet. All sets of columns is now made of the same amount of columns. I found another solution to make it nice at the top of the sheet.
I attach a new file with no merging of columns. I hope you will still give me a hand with this. On forehand, thank You.

Dear AlphaFrog. Yesss, this works very good. Exactly what was needed. It was like magic for me to see your work in action after me working with this since june. The "Sorting" button works just fine.
But, if I may, one last question, how do I implement a keyboard shortcut, now after the macro is already made. I have tried editing in the macro file different things, but I cant get it to work right.
To have a keyboard shortcut is almost required as members also have Labtops without using any mouse. Keyboard shortcut; Ctrl+s

Dear Sir! Thank You for the last information. Now all works like a well oiled machine. Again thank You for great work and very quick! Awesome!