Sortering af kunde-ark efter medarbejder-id

Hej med jer :-)

Jeg sidder med et kunde-ark med flere tusinde kunder. De er sorteret efter hvornår de er oprettet og jeg vil gerne have sorteret dem efter hvilken medarbejder der har udført salget.

Medarbejder id er anført således: AnsvarligMedarbejder (Kolonne Q)

Sådan ser resten af arket ud:
KundeNr    KundeGruppe    Navn    Adresse1    PostNr    ByNavn    Land    TelefonFax    Email    Hjemmeside    Adgang    Zone    Valuta    CVR-nr.    EANLokationsNr    BetalingsBetingelser    AnsvarligMedarbejder    Attention    DeresRef    KonteringsNr    KreditGraense    Layout    RabatGruppe    PrisGruppe    Sprog    LeveringsSted    PNr


Har prøvet denne kode, uden held:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("Q:Q")) Is Nothing Then
        Range("Q:Q").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
          xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    End If
End Sub


Håber på respons! :-D