Code erweitern

Hallo nochmal,

ich habe bereits diesen Code:

Private Sub CommandButton1_Click()
Dim wsAct As Worksheet
Dim strBlattname As String

Set wsAct = Worksheets("Vorlage")
strBlattname = InputBox("Namen anlegen?")

If strBlattname > "" Then
wsAct.Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = strBlattname
End If
End Sub

durch den Klick kommt eine Abfrage den NAmen des tabellenblatt eingeben. Danach wird die Vorlage kopiert.
jetzt möchte ich das der Name des tabellenblatt ( inputbox ) im Tabellenblatt Übersicht in Spalte D immer darunter schreibt. Aktuell ist D2 bis D8 belegt.
Jetzt muss der Name in D9 rein.

Wäre sowas möglich ?