Reakce na odpověď

Takhle by mne to nenapadlo...

Upravil jsem si to na sloupce C,D,E

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets("List1").Activate
If ActiveCell.Column = 3 Then
ActiveCell.Value = Target.Value
End If
If ActiveCell.Column = 4 Then
ActiveCell.Value = Target.Value
End If
If ActiveCell.Column = 5 Then
ActiveCell.Value = Target.Value
End If
End Sub

Počítám, že to jde v jedné podmínce, ale tohle mi stačí

Děkuji za řešení.

Excel / VBA