Hi

Sheets(1).Cells(Sheets(1).Cells(Rows.Count, 8).End(xlUp).Row + 1, 8).Value =
Date

Replace Sheets(1) with the sheet index without quotes, like
Sheets(45)
or the sheet name in quotes, like
Sheets("Summary")

HTH. Best wishes Harald

"lawson" skrev i melding
...
i have a spreadsheet that i enter data in once a day. i want the date to
be
automatically entered in the first row following the previous days entry
at
the bottom of column h.