Har jeg forstået dig ret kan du indspille makroer til at gøre arbejdet for dig, både mht. kopiering fra det ene ark til det andet, og den efterfølgende sortering. Jeg har uploaded mit bud på hvordan man kan løse udfordringen.

 

Prøv at overskrive alle makroerne i dit "modul" med nedenstående koder.

 

Sub Kopier()
'
' Kopier Makro
' Makro kodet af PI
'

'
    Range("A5:z25").Select
    Selection.Copy
    Sheets("Kopiark").Select
    Range("A5").Select
    ActiveSheet.Paste
End Sub
Sub SorterChaufførnr()
'
' SorterChaufførnr Makro
' Makro kodet af PI
'

'
    Range("A5:z25").Select
    Selection.Sort Key1:=Range("B5"), Order1:=xlAscending, Key2:=Range("A5") _
        , Order2:=xlAscending, Key3:=Range("C5"), Order3:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal
End Sub
Sub TilbageTilStamdata()
'
' TilbageTilStamdata Makro
' Makro kodet af PI'

'
    Sheets("Stamdata").Select
    Range("A5").Select
End Sub
Sub SorterVagtnr()
'
' SorterVagtnr Makro
' Makro kodet af PI'

'
    Range("A5:z25").Select
    Selection.Sort Key1:=Range("C5"), Order1:=xlAscending, Key2:=Range("A5") _
        , Order2:=xlAscending, Key3:=Range("B5"), Order3:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal
End Sub