Код, указанный ниже, должен работать. Он будет срабатывать каждый раз, когда вы выбираете значение в столбце «Создать».
Вставьте приведенный ниже код в редактор VB:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim currentRow As Long
If Selection.Count = 1 Then
If Not Intersect(Target, Range("A:A")) Is Nothing Then
currentRow = Target.Row
Range("D2").Value = Cells(currentRow, 2).Value
End If
End If
End Sub