Sortierung

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Range("A2", "B" & Range("A65536").End(xlUp).Row).Sort Key1:=Range("B2"), Order1:=xlAscending,   _
_
Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End If
End Sub

Wie muss ich dieses Makro umschreiben, damit er in Spalte A sortiert und die dazugehörende Spalte B zur Sortierung von Spalte A mitsortiert. In Spalte A befindet sich ein Wort und das dazugehörende Wort in Spalte B soll aufsteigend mitsortiert werden.
z.B.:
Spalte A Spalte B
Aalen Basra
Ankara Toledo
und nun soll Achen (Spalte A) und dazugehörend Polen (Spalte B) alphabetisch einsortiert werden.
mfg
Peter