DateDiff als Bedingung prüfen

Sub Zeitraum verkürzt()
Dim DatumStart As Date
Dim DatumEnde As Date
Dim d As Double

DatumStart = Tabelle1.Range("B12")
DatumEnde = Tabelle1.Range("B13")

Debug.Print "Differenz in Tagen beträgt: " & _
DateDiff("d", DatumStart, DatumEnde)

If d = 914 Then

Rows("31:31").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A31").Formula = "bei verkürzter Ausbildungsdauer (2,5 Jahre): Anpassung IT 9850 auf Sprungdatum 01.01. Folgejahr"
Rows("31:31").EntireRow.AutoFit

End If

End Sub
----------------------------------------
Hallo,
ich möchte den Zeitraum ermitteln und bei Anbgabe 2,5 Jahre eine Zeile hinzufügen und den Text in A31 schreiben.
Leider hänge ich, habe schon ewig nichts mehr gemacht.

Tausend Dank für Support,
Katrin