Zeile Sortieren nach Datum in einer Spalte mit vba

Ich versuche, meine Daten zu Sortieren, die jede Zeile von das Datum Auftritt in der N-Spalte. Im Moment ist es nur die Sortierung der Spalte n von istelf mit aus den Veränderungen rund um weitere Informationen. Wie kann ich wieder Schreiben mein code, so dass die gesamte Zeile zu bewegen, im Gegensatz zu nur die einzelne Zelle in dieser Zeile?

 Sub SortByDate()
 Dim rSortRange As Range
 Dim ws As Worksheet

 Set ws = Sheets("Copy")
 Set rSortRange = ws.Range("N11", "N111")
 rSortRange.Sort Key1:=ws.Range("N11"), Order1:=xlAscending, _
            Key2:=Range("N20"), Order2:=xlAscending, _
            Key3:=Range("N29"), Order3:=xlAscending, _
            Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
            Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
            DataOption2:=xlSortNormal, DataOption3:=xlSortNormal
 End Sub

Habe Es mit den folgenden makro-code

 Sub SortByDate()
 Dim rSortRange As Range
 Dim ws As Worksheet

 Set ws = Sheets("Copy")
 Set rSortRange = ws.Range("N11", "N111")
 rSortRange.Sort Key1:=ws.Range("N11"), Order1:=xlAscending, _
            Key2:=Range("N20"), Order2:=xlAscending, _
            Key3:=Range("N29"), Order3:=xlAscending, _
            Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
            Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
            DataOption2:=xlSortNormal, DataOption3:=xlSortNormal
 End Sub

Manchmal vergesse ich, wie einfach es ist, einfach ein makro aufzeichnen!