Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 4 And Target.Row 1 Then
If Target.Offset(-1, 0) = "" Then Exit Sub
Target.FormulaR1C1 = Target.Offset(-1, 0).FormulaR1C1
End If
End Sub

HTH,
Merjet