How to create a macro that puts today's date and time in cell

[jolivanes]

One way.

Sub Maybe()
Select Case ActiveCell.Address
    Case Is = Cells(1, 1).Address
        ActiveCell.Value = Format(Now, "mm/dd/yyyy HH:mm:ss")
            Cells(1, 2).Select
    Case Is = Cells(1, 2).Address
        ActiveCell.Value = Format(Now, "mm/dd/yyyy HH:mm:ss")
            Cells(2, 1).Select
    Case Is = Cells(2, 1).Address
        ActiveCell.Value = Format(Now, "mm/dd/yyyy HH:mm:ss")
            Cells(2, 2).Select
    Case Is = Cells(2, 2).Address
        ActiveCell.Value = Format(Now, "mm/dd/yyyy HH:mm:ss")
            Cells(1, 3).Select
    Case Else
End Select
End Sub