Try pasting this procedure in the appropriate worksheet object code
sheet

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then
Range("d1") = Range("a1")
ElseIf Target.Row = 4 And Target.Column = 1 Then
Range("d1") = Range("a2")
ElseIf Target.Row = 7 And Target.Column = 1 Then
Range("d1") = Range("a3")
End If
End Sub

Good luck!