Когда ячейка написана, поставьте время, а не обновляйте больше

Question

То, что я пытаюсь сделать, - это база данных и таблица, когда машина или человек въезжают, я просто указываю имя или номерной знак, и моя база данных дает мне необходимую информацию.
Этоготово.
Но я хочу сделать это максимально автоматизированным, например: когда у A4 есть "P" или "C", это даст мне час в E4 и больше не изменится.
Так что, когда янажмите на кнопку «Guardar Entrada», она поместит данные в таблицу ниже и останется там без изменений.
Я использовал now () с if: =IF(OR(A4="C";A4="P");NOW();""), но каждый раз, когда я помещаю что-то в A4время меняется, даже когда они уже находятся в другой ячейке.

Моя работа на данный момент:
{Sub InserirBD () '' InserirBD Macro '

    '
    Range("A4:G4").Select
    Selection.Copy
    Rows("6:6").Select
    Selection.Insert Shift:=xlDown
    Range("A4:G4").Select
    Application.CutCopyMode = False
    Selection.ClearContents
End Sub
Sub Ir_p_ExpedienteEntradas()
'
' Ir_p_Expediente Macro
'

'
    Sheets("Expediente Entradas").Select
    Range("A4").Select
End Sub

Sub Ir_p_ExpedienteSaidas()

    Sheets("Expediente Saidas").Select
    Range("A4").Select
End Sub
Sub Ir_p_BD()
'
' Ir_p_BD Macro
    Sheets("Base de Dados").Select
    Range("A4").Select
End Sub
Sub Inserir_EXP()
' Macro para inserir expediente

Range("A4:J4").Select
Selection.Copy
Range("A6:J6").Select
Selection.End(xlDown).Select
Selection.Insert Shift:=xlDown
Range("A4:C4").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub}

Спасибо