Copy and double click and paste in a specific cell

Is it what you need ...?
In sheet1 code next put

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim WS  As Worksheet
Const WkRg  As String = "B5"
   Set WS = Worksheets("Sheet2")

   If (Target.Column <> 1) Then Exit Sub
   WS.Range(WkRg) = Target.Value
   
End Sub