kør makro i en anden fane først

Jeg har 2 makroer hvor jeg vil have den ene kørt først og derefter den anden. men den første makro er i en anden fane.
her er den makro som jeg vil have kørt først og derefter den sidste.
Sub Sorterbutikker()
'
' Sorterbutikker Makro
'

'
    Range("A10").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("B10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Range("$B$10:$B$15000").RemoveDuplicates Columns:=1, Header:=xlNo
    ActiveWorkbook.Worksheets("Sorteret butikker").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sorteret butikker").Sort.SortFields.Add Key:=Range _
        ("B10"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Sorteret butikker").Sort
        .SetRange Range("B10:B15000")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
        Range("c10").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        Range("d10").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False
        ActiveSheet.Range("$d$10:$d$15000").RemoveDuplicates Columns:=1, Header:=xlNo
        ActiveWorkbook.Worksheets("Sorteret butikker").Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("Sorteret butikker").Sort.SortFields.Add Key:=Range _
        ("d10"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Sorteret butikker").Sort
        .SetRange Range("d10:d15000")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
og her er den makro som ligger i den fane hvor jeg står

Sub Sorterbutik()
'
'
' Sorterbutik Makro
'

'
    Range("A8:F15000").Select
    ActiveWorkbook.Worksheets("Butik").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Butik").Sort.SortFields.Add Key:=Range("A8:A15000") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Butik").Sort
        .SetRange Range("A8:F15000")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A8").Select
End Sub