leg dir einen Commandbutton auf das Blatt und da muss dann in etwa dieser Code drinstehen...
Private Sub CommandButton1_Click()
ActiveCell.Value = Time
Cells(ActiveCell.Row + 1, ActiveCell.Column).Activate
End Sub
bedenke, dass bei diesem Code immer in der aktiven Zelle die aktuelle Zeit eingetrragen wird!
Allerdings bist du hier eigentlich im falschen Forum bzw. Bereich