Fortlaufende Nummer einfügen

Private Sub Anzahl_Click()
End Sub

Private Sub ToggleButton_Abbrechen_Click()
Unload Me
End Sub

Private Sub ToggleButton_Anlegen_Click()
'Erste freie Zeile ausfindig machen
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row + 1
'UID
Cells(last, 3).Value = TextBox_UID
'Anzahl der EOL Läufe
Cells(last, 7).Value = TextBox_Anzahl + " Serienläufe NIO"
'Status bei Erstellung
Cells(last, 1).Value = "unbearbeitet"
'fortlaufende Nummer
Hier möchte ich das die Zeile oberhalb um +1 erweitert wird
'Abgeschrieben
Cells(last, 12).Value = "Nein"
Unload Me
'Mail verteilen
Sheets("NVH-Zerlegerübersicht").Select
Range("A1").Select
Dim Mailadressen As String, Adr() As Variant
Adr = WorksheetFunction.Transpose(Worksheets(3).Range("C2:C200").SpecialCells( _
xlCellTypeConstants, 2))
Mailadressen = Join(Adr, ";")
Dim OpenOutlookApp As Object
Dim OutlookMailItem As Object
Set OpenOutlookApp = CreateObject("outlook.application")
Set OutlookMailItem = OpenOutlookApp.CreateItem(0)
With OutlookMailItem
.To = Mailadressen
.Subject = "UID: " & Me.TextBox_UID
.Body = "Hallo,"
.Send
End With
Set OpenOutlookApp = Nothing
Set OutlookMailItem = Nothing
End Sub