VBA excel, список

Формулировка задачи:

Привет ребят, не могу разобраться почуму не работает код, цель которого
1. После выбора значения из списка, помещать выбранного значение в столбец справа
вот код:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Application.EnableEvents = False
        Target.Offset(1, 0) = Target
        Target.ClearContents
        Application.EnableEvents = True
End Sub

Буду очень благодарен

Решение задачи: «VBA excel, список»

textual
                            Листинг программы 
                        
                            Private Sub Worksheet_Change(ByVal Target As Range)