Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim celB As Range, celF As Range, celI As Range, celK As Range
Set celB = [B4]: Set celF = [F14]
Set celI = [I14]: Set celK = [K14]
If Not Intersect(Target, Range("g14")) Is Nothing And Target.Count = 1 Then
If celF <> "" Then celB = celF.Value
End If
If Not Intersect(Target, Range("j14")) Is Nothing And Target.Count = 1 Then
If celI <> "" Then celB.ClearContents: celB = celI.Value
End If
If Not Intersect(Target, Range("l14")) Is Nothing And Target.Count = 1 Then
If celK <> "" Then celB.ClearContents: celB = celK.Value
End If
End Sub