Cursor auf neu generierte Zeile

Hallo zusammen

Ich habe eine Taskliste in der mittels Button eine neue Zeile mit Übernahme der Formatierung, fortlaufender Numerierung und Erstelldatum, erstellt wird.
Leider springt der Cursor nicht in die erste Zelle (Spalte A) der neu generierten Zeile.
Hat jemand eine Idee wie ich den Code ausbauen kann?

Code Neue Zeile generieren:

Sub Neue_Zeile()
   
 With ThisWorkbook.ActiveSheet.ListObjects(1).ListRows.Add
 .Range(2).NumberFormat = "0000"
 .Range(2).Value = .Index
 .Range(14).FormulaArray = "=[@Nr]"
 .Range(14).FormulaR1C1 = "=RC[-12]"
 .Range(16).Value = Date
 End With

End Sub