Bedingte Formatierung - MakroNeue Zeile

Hallo zusammen

Ich habe eine Taskliste mit div. Makros und bedingter Formatierung kreiert. Sie funktioniert bis auf nachstehendes Problem.

Wenn jemand sämtliche Tasklisteneinträge mit "Zellen löschen" löscht (weil er eine neue Taskliste anlegen möchte) bleibt zwar die Referenzzeile stehen, doch die bedingten Formatierungen funktionieren nicht mehr.
Daher habe ich mir gedacht, dass ich die Referenzzeile ausblenden könnte, damit diese gar nicht erst gelöscht werden kann.
Wenn ich dies mache habe ich jedoch ein Problem mit dem Makro " Neuer Task" mit diesem Makro wird eine laufende Nummerierung generiert sowie das Erstelldatum eingetragen.

Mit dem nachfolgenden Makro-Code beginnt die neue Zeile jedoch stets mit der Laufnummer 0002. Wenn ich aber die Referenzzeile ausblende müsste die neue Zeile mit 0001 beginnen. Was muss ich am Code ändern?

Sub Neue_Zeile()

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

End Sub