VBA - Leave value as is

[Oranjin]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Dim rw As Long, fn As Range
Application.EnableEvents = False
    If Not Intersect(Target, Range("Entry")) Is Nothing Then
        Set fn = Range("J:J").Find(Target.Value, , xlValues, xlWhole)
            If Not fn Is Nothing Then
                rw = fn.Row
                Range("B" & rw).Resize(1, 11).ClearContents
                Range("B" & rw) = "Open"
                Range("D" & rw) = "4"
                Range("E" & rw) = "NW"
                Range("G" & rw) = "Open Slot"
                Range("J" & rw) = "open Slot"
                Range("K" & rw) = "4030"
                Range("L" & rw) = "West 86"
            End If
    End If
Application.EnableEvents = True
End Sub

for rows D,E,K and L instead of entering the specified value, I'd like this Macro to, "Leave the contents of the cell as is".

So, if it says, 4030, then leave it as 4030. If it says 4031, then I'd like it to stay as 4031 (or the formula I have in the cell that pulls up that value).

Can someone help me understand how to make it leave the cell as is instead of entering this generic text? Thanks

Thanks

 

[Tetra201]

See if this code works for you (note: not tested):

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Dim rw As Long, fn As Range
Application.EnableEvents = False
    If Not Intersect(Target, Range("Entry")) Is Nothing Then
        Set fn = Range("J:J").Find(Target.Value, , xlValues, xlWhole)
            If Not fn Is Nothing Then
                rw = fn.Row
                'Range("B" & rw).Resize(1, 11).ClearContents
                Range("B" & rw).Resize(1, 2).ClearContents
                Range("F" & rw).Resize(1, 5).ClearContents
                Range("B" & rw) = "Open"
                'Range("D" & rw) = "4"
                'Range("E" & rw) = "NW"
                Range("G" & rw) = "Open Slot"
                Range("J" & rw) = "open Slot"
                'Range("K" & rw) = "4030"
                'Range("L" & rw) = "West 86"
            End If
    End If
Application.EnableEvents = True
End Sub