Dann sag uns mal bitte, in welcher Programmierumgebung Du programmierst. Du bist hier im Unterforum VBA. Das impliziert, dass Du in MS Word oder Excel unterwegs bist. Da könntest Du ein UserForm verwenden und Deine Daten in der eigentlichen Excel-Tabelle abspeichern, also Excel als Datenpersistierablage verwenden.

Wenn Du aber mit Visual Studio arbeitest, geht es um VB.Net. Dann sind wir bei anderen Herangehensweisen. Da geht es nicht nur um die Programmgestaltung (Stichwort: Trennung Daten<->GUI; Daten gehören in Datenkonstrukte wie List(Of DeineErinnerungen) gespeichert, in den CEs wie eine TextBox werden sie nur angezeigt!), sondern auch um die Persistierung (das Abspeichern und wieder laden). Dazu kannst Du z.B. TXT- oder CSV-Dateien nehmen (Stichwort IO.File.WriteAllLines / IO.File.ReadAllLines) oder einen Schritt weiter, aber später sehr bequem: Arbeiten mit nem tDS. Wenn Du den Weg gehen willst (was sich schnell ausbezahlt macht), dann natürlich am besten für den Anfang ohne DB, sondern tDS-only arbeiten. Nicht selten bleibt man auch ne ganze Weile dann tDS-only, weil es für lange Zeit ausreichend ist. Das spätere Anhängen einer DB ist relativ leicht möglich.

Es gibt zwar nen DateTimePicker in den Common Controls (MSCOMCT2.OCX), aber nicht für Office 64-Bit, was ich habe. Es gibt moch im Excel-Forum eine Alternative, aber die habe ich nicht getestet.
Den Fehler kann ich mir auf Anhieb nicht erklären. Ich hab es nachgebaut, bei mir geht es. Kannst Du Deine Datei mal per [+ Erweitere Antwort] hochladen, vielleicht finden wir so den Fehler.

surfer09 schrieb:

Die Vorgehensweise habe ich mir von einem Youtube Video abgeschaut und dort steht es genauso

Sagen wir mal: fast genauso.

Ja, das ist das Problem, wenn man nach Filmvorlagen codiert.
Und den Code im Forum als Bild verschleiert.
Da sind solche Fehler für andere kaum zu finden,
x1Up und xlUp sieht nahezu identisch aus, aber das eine ist eine Eins und das andere ist ein L.
Der Fehler wäre dem Compiler übrigens aufgefallen, hättest du in der obersten Zeile Option Explicit stehen, was du unbedingt immer tun solltest.

Anmerkung am Rande:
Arbeite nicht mit ActiveSheet, sondern adressiere das Arbeitsblatt direkt.
last = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet ist das Sheet, das gerade zufällig aktive ist.
Da du eh nur eines hast, wird sich das nicht arg bemerkbar machen.
Noch mehr macht sich es bemerkbar in den Zeilen darunter, wo du die Sheet-Adressierung ganz weg lässt.
Cells(last, 1).Value = ListBox1_Tag.Value
Solche Unsauberkeiten solltest du dir erst gar nicht angewöhnen. Unbedingt das Sheet adressieren!
Tabelle1.Cells(last, 1).Value = ListBox1_Tag.Value
Und wenn du jetzt dem Sheet-Objekt eine "richtigen" Namen gibst, ist das Programm auch noch in 4 Wochen lesbar.

surfer09 schrieb:

Ich möchte die Tabelle ja nicht jedes Mal neu sortieren, damit dieser Eintrag auch an die richtige Stelle rutscht

Warum nicht? Ist ein Einzeiler.

surfer09 schrieb:

Am Ende eines Tages würde ich noch gerne einen Trennstrich ziehen lassen

Ich würde das mit bedingter Formatierung machen.
Wenn das aktuelle Datum nicht mit dem nachfolgenden übereinstimmt, den unteren Rahmen dicker machen mit anderer Farbe versehen.
Da brauchst du kein Makro und hast immer genau da den Trennstrich, wo du ihn erwartest.

surfer09 schrieb:

Wie sieht der Einzeiler für die Sortierung aus?

surfer09 schrieb:

Die bedingte Formatierung kenne ich.

Dann solltest du dich dringend damit beschäftigen.
Damit lässt sich sehr schön zaubern.
Ist halt etwas tricky.
Du musst halt ein wenig spielen, bis du das gewünschte Ergebnis erreicht hast.
Tipp: Fang an mit einer Zelle und wende dann das Ergebnis auf den gesamten Range an.

surfer09 schrieb:

Aber wie sage ich dem System da „Prüfe das letzte vorhandene Datum“?

Gar nicht.
Die Regel steht oben.
Die wird auf den kompletten Tabellen-Range angewendet.

surfer09 schrieb:

Allerdings bekommt ich das mit der bedingten Formatierung nicht hin

Bevor ich das lange mühevoll beschreibe, hänge ich es dir als Beispiel an.