Sub addTodayToBottom()
Cells(ActiveCell.End(xlDown).Row + 1, ActiveCell.Column).Value = Date
End Sub
Sub addTodayToBottom()
Cells(Range(Cells(Rows.Count, ActiveCell.Column), Cells(Rows.Count, ActiveCell.Column)).End(xlUp).Row + 1, ActiveCell.Column).Value = Date
End Sub
in ONE cell
Sub addTodayToCell()
ActiveCell.Value = Activecell.value & vbCrLf & format(Date,"mm/dd/yyyy")
End Sub
Open in new window
This code will go in the applicable worksheets code module (right-click tab > View Code). It will append the current date to the value already present in cell A1 (modify to suit).