VBA - Rangebereich Zeilenweise ausfüllen

[Taiko]

Liebes Forum!
Ich brauche für meine Exceldatei Hilfe mit einem Makro.
Das Makro ist mit einem Knopf verknüpft, welcher bei Klicken das Makro ausführen soll.
Es handelt sich um ein Datumsmakro, welches beim Klicken das jeweilige Datum ausgibt (HEUTE-Funktion).
Ich scheitere daran, dass pro Klick immer nur eine Zeile ausgefüllt wird.
Könnt ihr mir helfen, das beim 1. Klick die 1. Zeile, beim 2. Klick, die 2. Zeile usw. ausgefüllt wird?

Code:

Sub Monatsende()

Dim DaDatum As Date
DaDatum = Date

Worksheets("Tabelle1").Range("A1:A100") = Date

End Sub

Es sollen alle 100 Zeilen gefüllt werden, aber nicht auf einmal wie bei meinem Code, sondern fortlaufend, je eine Zeile (erst1., dann 2., 3., usw.).
Vielen Dank für eure Hilfe.
LG