Inputbox und abbrechen

Sub Datum()
Application.ScreenUpdating = False
Sheets("Datum").Select
[A2:L2000].ClearContents
[A2].Select
Sheets("Vorsorge").Select
Dim WS1 As Worksheet, WS2 As Worksheet
Dim var As Date
Dim datAnfang As Date
Dim datEnde As Date
Dim I, lZeile1, lZeile2
'mit Datevalue bist Du variabel bei der Eingabe
datAnfang = DateValue(InputBox("Anfangsdatum")) ''''diese Zeile ist gelb markiert
datEnde = DateValue(InputBox("Enddatum"))
var = Application.InputBox("Datum eingeben")
If var = False Or Not IsDate(var) Then
Exit Sub
Set WS1 = Worksheets("Vorsorge")
Set WS2 = Worksheets("Datum")
'letzten Eintrag ermitteln
lZeile1 = WS1.Cells(Rows.Count, 2).End(xlUp).Row
For I = 2 To lZeile1
'überprüfen, ob Datum aus SpalteL im Datumsbereich
If WS1.Cells(I, 12) >= datAnfang And WS1.Cells(I, 12) <= datEnde Then
'ermitteln des letzten Eintrags in Tabelle2
lZeile2 = WS2.Cells(Rows.Count, 12).End(xlUp).Row
'Daten aus SpalteA bis SpalteL kopieren
Range(WS2.Cells(lZeile2 + 1, 1), WS2.Cells(lZeile2 + 1, 12)).Value = _
Range(WS1.Cells(I, 1), WS1.Cells(I, 12)).Value
Range(WS2.Cells(lZeile2 + 1, 1), WS2.Cells(lZeile2 + 1, 12)).NumberFormat = "dd.mm.yyyy"
End If
Next I
Sheets("Datum").Select
Range("A:A,E:E,F:F,G:G,H:H,I:I,J:J").Select
[J1].Activate
Selection.NumberFormat = "0"
[A2:L2000].Select
[L2].Activate
Selection.Sort Key1:=Range("L2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A2").Select
UserForm4.Hide
Userform6.Show
End If
End Sub