Sub MacroX()
    Worksheets("Sheet4").Range("E3").Value = Now()
    '...