insert current date in cell if specific text is entered

Hi Guys

im having a problem writing this code...

i want it to do this..:

when a user types "dd" in a cell, the macro should insert the current date. and if the user types a date, this date will stay in the cell

any ideas?

here is the code a have tried to write

Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
       Set KeyCells = Range("B19")
    
    Dim newval As Variant
    
    newval = Range("K2").Value
    
    If Application.Intersect(KeyCells, Range(Target.Address)).Value = "dd" Then

    Range("B19").Value = newval
               
       End If
    
End Sub