Hallo ihr Lieben, ich stoße mal wieder an meine Grenzen mit dem Chatbot^^

Ich habe eine Userform die eine 2te Userform öffnet.
In der ist ein Labelfenster: Case Nr: 
Ich möchte das wenn die Userform ausgefürt wird folgendes passiert:
Sie soll in die Sheet:Overview springen und auf Zeile 2 eine neue Zeile erstellen. So dass alle vorherigen Zeilen ein feld runter rutschen.
Dann soll sie alle zahlen aus Spalte A ( Case Nr.: ) prüfen und die höchste Zahl +1 in das neue Feld in Zeile 2 Spalte A hineinschreiben.
Gleichzeitig soll dann In der Userform in dem Label1: Case Nr.: die generierte Zahl eingefügt werden.
Bei meinem Code funktioniert dies aber nur einmal.
Wenn ich die Userform mehrfach nacheinander ausführe über den Play button oder über das richtige Makro funktioniert es nicht mehr. Er liest dann immer nur noch die Höchste Zahl aus und schreibt es in das Label1 feld aber erzeugt keine neue spalte und nummer mehr.
könnt ihr mir da weiter helfen? 
Hier der Code abschnitt:

Private Sub UserForm_Initialize()
    'Bestimme die Breite und Höhe des UserForms
    Dim formWidth As Long
    Dim formHeight As Long
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim newCaseNum As Long
    formWidth = Me.Width
    formHeight = Me.Height
    
    'Bestimme die Größe des Bildschirms
    Dim screenWidth As Long
    Dim screenHeight As Long
    screenWidth = Application.Width
    screenHeight = Application.Height
    
    'Berechne die Position des UserForms, um es in der Mitte des Bildschirms zu platzieren
    Dim formLeft As Long
    Dim formTop As Long
    formLeft = (screenWidth - formWidth) / 2
    formTop = (screenHeight - formHeight) / 2
    
    'Setze die Position des UserForms
    Me.StartUpPosition = 0 'Manuelle Positionierung
    Me.Left = formLeft
    Me.Top = formTop

    'Füge Elemente zur ListBox hinzu
    With Me.ListBox1
        .AddItem "Maurizio Marotta"
        .AddItem "Rik Fisser"
        .AddItem "Laserservice"
    End With
    With Me.ListBox2
        .AddItem "Lars Weber"
        .AddItem "John Christensen"
        .AddItem "Sebastian Bassler"
    End With
    
    'Wechsle zum Blatt "overview" und füge eine neue Zeile ein
    Set ws = ThisWorkbook.Sheets("overview")
    ws.Activate
    ws.Rows("2:2").Insert Shift:=xlDown
    
    'Finde die höchste Case-Nummer in Spalte A und erhöhe sie um 1
    lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
    newCaseNum = ws.Cells(lastRow, 1).Value + 1
    
    'Schreibe die neue Case-Nummer in die erste Zeile des Blattes
    ws.Cells(2, 1).Value = newCaseNum
    
    'Aktualisiere den Text des Labels, um die neue Case-Nummer anzuzeigen
    Me.Label1.Caption = "Case Nr.: " & newCaseNum
        
End Sub

Info am rande. Ich habe Keine Ahnung von VBA ich nutze auschließlich einen Chatbot ^^
Ich danke schonmal für eure Hilfe :-)

Lg Kratoro