VBA Code für alle Blätter

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim KopiereZuSpalte As Long
With ActiveSheet
KopiereZuSpalte = 10 'Spaltennummer angeben, in die kopiert werden soll
If Target.Column = 1 Then 'Spaltennummer angeben, aus der mit Doppelklick  _
kopiert werden soll
Cells(ActiveSheet.Cells(Rows.Count, KopiereZuSpalte).End(xlUp).Row + 1,  _
KopiereZuSpalte).Value = Target.Value
End If
End With
End Sub