Copy cell value on double click

Hello Experts,

When i double click on any cell from range (B10:J40000)
I want to copy the cell value to same column but to row 7 .. i found the code below but it's doing different job , please help me to modify it in order to be able to perform the task i want.
Attached a sample for ref.

many thanks,
Wellous,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Not Intersect(Target, Range("B10:J40000")) Is Nothing Then
        Cancel = True

        If Application.CountIf(Sheets("sheet1").Range("B7:j7"), Target.Value) = 0 Then
       Cells(Target,Range("B7:J7")).Value = Target.Value
        End If
    End If

End Sub