Tabellenblatt einen Namen zuweisen

Sub Q_SortAnzahlCalls()
Dim Arbeitsblatt As Worksheets      ''Tabelle einen Namen zuweisen
Arbeitsblatt = Sheets.Name      'hier ist mein Problem
Rows("1:2").Select
Selection.Copy                  'sichern der Überschrift
Sheets.Add
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets(Arbeitsblatt).Select
Rows("1:2").Select              'löschen der Überschriften um das Sortieren zu ermöglichen
Selection.Delete Shift:=xlUp
Range("D4").Select              'das eigentliche sortieren
Selection.Sort Key1:=Range("D4"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select              'ganz oben zwei neue Zeilen für die gesicherten Überschriften
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Sheets("Tabelle1").Select
Rows("1:2").Select              'einfügen der gesicherten Überschriften
Selection.Copy
Sheets(Arbeitsblatt).Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Tabelle1").Select       'die jetzt überflüssig gewordene Tabelle löschen
ActiveWindow.SelectedSheets.Delete
End Sub