With Sheets("Datenbankliste") .Cells(Rows.Count, 1).End(xlUp).offset(,8).NumberFormat = "dd.mm.yyyy" Sheets("RechnungsVorlage").[K23] = Application.Max(.columns(8)) + 1 End With