Option Explicit

Sub StartDateTime()
    Sheets("Sheet1").Range("A4").Value = Now
End Sub

Sub EndDateTime()
    Sheets("Sheet1").Range("B4").Value = Now
End Sub

Sub ClearDateTime()
    Sheets("Sheet1").Range("A4").Value = ""
    Sheets("Sheet1").Range("B4").Value = ""
End Sub