次のような方法があります。

（１）Range("A1").Value = "'" & Format$(Time)
（２）Range("A1").Value = "'" & Time