Hallo Rogerio,

dann so:

Dim loLetzte As Long

With Worksheets("Zusammenstellung_Umsatz")
     loLetzte = .Celle(.Rows.Count, 1).End(xlUp).Row + 1
     .Cells(loLetzte, 1).Value = dateOut
End With


Achte hier bitte auf die Punkte vor den Range-Objekten (Cells, Rows). Die sind wichtig, da damit auf das Tabellenblatt referenziert
wird, das beim With angegeben wurde.

Gruß Werner