Private Sub Worksheet_Change(ByVal Target As Range)

Dim vOldVal, vNowVal
Dim iCell, iSource As Range
 
Set m_wbBook = ThisWorkbook
Set m_inputSheet = m_wbBook.Worksheets("Исходные_данные (факт 2018)")
Set iSource = m_inputSheet.Range("Сад")

 If Target.Cells.Count > 1 Then Exit Sub
 If Target.Column = Range("garden").Column Then
     If IsEmpty(Target) Then Exit Sub
        vNowVal = Target.Value 'запоминаем введенное значение
            With Application
                .EnableEvents = 0 'отключаем отслеживание событий(чтобы не зациклить)
                .Undo 'отменяем введенные изменения
                 vOldVal = Target.Value 'запоминаем новое значение
                 Target.Value = vNowVal 'если надо вернуть значение
                .EnableEvents = 1 'возвращаем отслеживание событий
                If IsEmpty(vOldVal) Then Exit Sub
                If vOldVal = vNowVal Then Exit Sub
             End With
             
            
             If WorksheetFunction.CountIf(iSource, vOldVal) = 0 Then Exit Sub
             
             Set iCell = iSource.Find(vOldVal)
                Do Until iCell Is Nothing
                   iCell.Value = vNowVal
                  Set iCell = iSource.FindNext
                Loop


 End If
   
End Sub