Automatisch Systemdatum auflisten

das Systemdatum soll in Spalte A automatisch eingetragen werden, solange in Spalte B, C, etc. Werte auftauchen. Unten stehender Code hat mir zwar geholfen, aber er aktualisiert das zuvor eingetragene Datum.

Sub heute()
Dim c As Date
Dim i As Range
ende = Cells(65536, 2).End(xlUp).Row 'von letzter Zeile aufwärts
For c = 1 To ende

If Not IsEmpty(Cells(c, 2)) Then
Cells(c, 1) = Date

End If
Next

End Sub

So sollte es aussehen:

A B C
22.05.02 24500 ...
22.05.02 34000 ...
... ....
23.05.02 10000 ...
usw.

Wenn ich heute das Datum eintragen lasse, dann wird der 25.05.02 eingetragen, ohne die zuvor aufgelisteten zu löschen oder umzuändern. Was müsste am Code geändert werden?

Dank und Gruss, sergen