VBA-Kopie-mit ermitteln letzte Zeile

Sub KopiereBlatt_() 'Tabelle1 als Sicherheitskopie in KopieOriginal speichern
Dim var
For Each var In ThisWorkbook.Sheets
If var.Name = "Kopie Original" Then
If MsgBox("Das Blatt 'Kopie Original' gibt es schon." & vbCrLf _
& "Soll ein neues Blatt erstellt werden?", vbQuestion + vbYesNo, "Sicherungskopie  _
bereits vorhanden") = vbYes Then
Sheets("Tabelle1").Copy Before:=Sheets(Worksheets.Count)
On Error Resume Next
ActiveSheet.Name = "Kopie " & Date
If Err.Description  "" Then
MsgBox "Kopie " & Date & vbCrLf & Err.Description
Err.Clear
Exit Sub
End If
Else
Exit Sub
End If
End If
Next
Sheets("Tabelle1").Copy Before:=Sheets(Worksheets.Count)
ActiveSheet.Name = "Kopie Original"
End Sub