Copy the time to the next row of another column

Question

What VBA code should be used to copy the current time to the subsequent row of a neighboring column? I shall start the next event at the time I finish the current one.

As much as I've tried, I can't make a loop iterate since I always have to go to the next row of the full column.

Answer 1

Try this:

Sub CopyCurrentTime()
Dim currentRow As Integer
currentRow = ActiveCell.Row
Cells(currentRow + 1, ActiveCell.Column + 1).Value = Now

End Sub