Von Tabelle1 nach Tabelle2 kopieren

mit folgendem Makro wird ein neues Tabellenblatt angelegt und gleichzeitg mit einem Namen aus Tabelle1 ZelleC9 versehen.
Was fehlt noch, um diesen Namen aus Tabelle1 ZelleC9 auch noch ins neue Tabellenblatt nach Zelle A1 zu kopieren ?

Vielen Dank im Voraus

Option Explicit
Sub neuesBlatt()
Dim WS As Worksheet
Set WS = Worksheets.Add
With WS
.Name = Sheets("Tabelle1").[c9]
.Move after:=Sheets(Sheets.Count)
End With
End Sub