Differenz errechnen

Private Sub Differenz_errechnen_mit_Inputbox()
Dim Wert2 As String
Dim Wert3 As Integer
Dim Datum1 As Date, Datum2 As Date
On Error GoTo ERRORHANDLER
Wert2 = InputBox("bitte Zelle angeben, ab dem die Differenz berechnet werden soll", " _
Beginnzeile", "C2")
Wert3 = InputBox("bitte Spalten-Nr. eingeben z.B. F=6, L=12, R=18, X=24, AD=30", "Spalten-Nr.",  _
6)
Datum1 = Cells(Rows.Count, Wert3).End(xlUp)
Datum2 = Range(Wert2)
With Application.WorksheetFunction
Wert1 = .Max(Datum1, Datum2) - .Min(Datum1, Datum2)
MsgBox "Das Makro dauerte: " & Format(Wert1, "h:mm:ss")
End With
ERRORHANDLER:
End Sub