Datum in alle Sheets eintragen

wie schaft man es über VBA Datum in die nächste frei Zelle der Spalte J einzutragen in alle vorhandene Worksheets.

Bzw. wie muss man den folgenden VBA Code ändern damit dies funktioniert.

Dim I As Integer
For I = 1 To 3000
If Worksheets("Tabelle1").Cells(I, 10) = Date Then
Exit For
End If
If Worksheets("Tabelle1").Cells(I, 10) = 0 Then
Worksheets("Tabelle1").Cells(I, 10) = Date
Exit For
End If
Next

Danke Alex