Exécuter macro sous condition

Bonjour,

Je souhaiterais qu'une macro se réalise à condition qu'une action ait été réalisée préalablement (tri de 8 colonnes).

Le code de la macro auto serait le suivant :

Private Sub Worksheet_Change(ByVal Target As Range)

Range("O1:BA150").Select
Selection.Copy

Range("O160").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("O160:O309").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("O161"), Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1

Range("A1").Select

End Sub

Et voici la macro que j'ai enregistré pour le tri :

Sub triAH()

Columns("A:H").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select

End Sub

Comment puis-je donc faire pour que la macro s'exécute si et seulement si j'ai trié mes 8 colonnes ?