写入单元格后，请花费时间而不要更新

Question

我想要做的是一个数据库和一个表格，用于当汽车或人进入时，我只需输入姓名或车牌，然后数据库即可为我提供所需的信息。
完成了。
但我想使之自动化程度最高：当A4具有“ P”或“ C”时，它将给我E4中的时间，而不会有更多变化。
因此，当我单击“ Guardar Entrada”按钮时，它将把数据放在下表中，并保留在那里，而无需任何更改。
我将now（）与if：=IF(OR(A4="C";A4="P");NOW();"")一起使用，但是每次我在A4中放置内容时，即使它们已经在其他单元格中，时间也会改变。

到目前为止我的工作：
    {Sub InserirBD（）         '         InserirBD宏         '

    '
    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}

谢谢