Datum in bestimmter Zellenreihenfolge eintragen

Jetzt möchte ich aber, dass die Einträge in der Celle C9 für das Datum und E9 für die Zeit beginnen und dann bei C11 sowie E11 weitermachen und danach bei C13 sowie E13 usw.

Geht das?
Wie geht das?

Grüße und Dank
Benjamin

Private Sub Workbook_Open()
dim tag as date
tag = date
if cells(65000,2).end(xlup) = date then exit sub
with cells(65000,2)
.end(xlup).offset(1,0).value = date
.numberformat = "DD.MM.YYYY"
end with
with cells(65000,4)
.end(xlup).offset(1,0).value = Time
.numberformat = "HH:MM:SS" 'oder wie auch immer
end with
end sub