Wochenenden markieren

Sub Wochenendemarkieren()
Dim Zeile As Long
Dim ZeileMax As Long
With ActiveSheet
ZeileMax = .UsedRange.Rows.Count
For Zeile = 5 To ZeileMax
If Weekday(.Cells(Zeile, 1).Value) = 1 Or Weekday(.Cells(Zeile, 1).Value) = 7 Then
.Cells(Zeile, 1).Interior.ColorIndex = 4
Else
.Cells(Zeile, 1).Interior.ColorIndex = xlColorIndexNone
End If
Next Zeile
End With
End Sub

Ich hab den gleich mal in meinem Fahrtenbuch verwendet und da ist mir ein kleiner Fehler aufgefallen.
Wenn in irgendeienr Zelle nach dem eigentlichen Datum noch irgendwelche Einträge stehe, dann werden die Zellen in Spalte 1, die in der gleichen Zeile sind auch grün markiert! Immer bis auf die letzten drei! Warum ist das so?
Hier ein kurzes Beispiel:
https://www.herber.de/bbs/user/62392.xls
Vielen Dank im voraus.
Viele Grüße
Jordan