Boa tarde!!

Como não posso baixar seu anexo.

Teste ai..

private sub workbook_open()

[M7].FormulaLocal = Time()
[N7].FormulaLocal = Date

End sub

Alexandre, valeu, deu certo, mas não esta atualizando a hora, e se for possível, deixar os segundos correndo com a hora do pc.

silva_jmp

Boa noite!!

Tente assim...mas faça uma adaptação

Sub Atualizar()
Private Sub Worksheet_Change()
[M7].FormulaLocal = Time()
[N7].FormulaLocal = Date
End Sub
Private Sub Workbook_Open()

  Application.OnTime Now + TimeValue("00:00:01"), " Atualizar"

End Sub