Populate Cell from doubleclick

Hi and welcome to the forum.

One way - with a Sheet Selection change macro

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        Sheet1.Range("F1") = Target.Cells(1, 2)
    End If
End Sub