Not without VBA. Left-clicking difficult so this needs right-clicking.
See attached which has this code in Sheet1's code-module:
Code:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Range("B4").Value = Target.Value
End Sub