Automatisch sortieren

ich möchte gerne das sich meine tabelle automatisch sortiert.
folgenden code habe ich mit dem recorder aufgezeichnet:

Sub Tabelle_sortieren()
Range("D7:O214").Select
Selection.Sort Key1:=Range("M8"), Order1:=xlDescending, Key2:=Range("N8") _
, Order2:=xlDescending, Key3:=Range("O8"), Order3:=xlDescending, Header _
:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

wie muß ich den code ändern, dass sich die tabelle automatisch sortiert.

für eine hilfe wäre ich dankbar.

gruß
martin