Autoeintrag in Kalender

Habe auch mit Hilfe dieses Forum einen Kalender erstellt,
Ich benutze zum eintragen von Daten an mehreren Tagen eine "Autoeingabe".
Jetzt habe ich festgestellt, dass wenn ich in der Inputbox das letzte Datum im Monat eintrage, das Makro
nicht mehr beendet wird.

Hier das Makro

Sub Autoeingabe()
Dim Start As Date, ende As Date, z As String
Dim C As Integer, d As Integer
Start = InputBox("Bitte Startdatum eingeben")
ende = InputBox("Bitte das Enddatum")
z = InputBox("welcher Text soll eingetragen werden?")
C = 2
d = 4
If Month(Start) = 1 Then d = 4 Else C = 2 * Month(Start)
'Anfangsspalte finden
Do Until Cells(d, C) = Start
d = d + 1
Loop
Do Until Cells(d, C) = ende + 1
If Weekday(Cells(d, C)) > 1 And Weekday(Cells(d, C)) < 7 And Weekday(Cells(d, C)) Then
Cells(d, C + 1) = z
End If
d = d + 1
If Not IsDate(Cells(d, C)) Then 'Sprung in nächsten Monat
C = 2 * Month(ende)
d = 4
End If
Loop
End Sub

Hoffe es kann mir jemand helfen.
mfg
Harry_W