Szia Lesleee,

Tessék parancsolni:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.Calculation = xlCalculationManual
If Not Intersect(Target, Range("B13:B2000,c13:c2000,d13:d2000,e13:e2000,f13:f2000")) Is Nothing Then
Target.Value = Cells(Target.Row, 1).Value
For i = 2 To 6
    If Target.Column <> i Then
        Cells(Target.Row, i).Clear
    End If
Next i
Cancel = True
End If
End Sub

Örülök, hogy segíthettem! :)

Minden jót!

Üdv: Sznido