Attribute VB_Name = "AddTimestampToActiveCell"
Option Explicit

Public Sub AddTimestampToActiveCell()
    ActiveCell.Value = Format(Now, "yyyy-mm-dd hh:nn:ss")
End Sub