Dato

Sub Dato()
    Dim Dato
    Dato = Date
        If Range("A2") = "" Then
            Range("B2").Value = Dato
        Else
            Range("B2") = 4
        End If
End Sub

Som svaret i andet spørgsmål, det er ikke god stil at oprette flere spørgsmål, så render vi alle lidt vildt i det.

Det skal jeg nok huske.

Men den Felt B2 bliver ikke opdateret med dato, når jeg ændrer felt A2 fra tom til 5

Nej, du kodede det til at hvis A2 er tom så sættes dato i B2, ellers skriver den 4 i B2.

Så du skal vende det omkring hvis du ønsker det omvendt.