enter date upon opening

[Guest]

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.

 

[Harald Staff]

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