Sheets("PL").Range("A" & rplcont).FormulaR1C1 = Sh.Range("A" & rcont).FormulaR1C1
Sheets("PL").Range("A" & rplcont & ":A" & rplcont + Sh.Range("A" & rcont).MergeArea.Rows.Cells.Count - 1).Merge

  Sh.Range("A" + CStr(BegRow + 1) + ":A" + CStr(EndRow - 1)).Copy
   Sheets("PL").Paste (Sheets("PL").Range("A" + CStr(BegRowPL + 1) + ":A" + CStr(BegRowPL + 1)))

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column = 2 Then
      Call on_code_change(Target) 'при изменении кода подставляем наименование
   ElseIf Target.Column = 3 Then
      Call on_name_change(Target) 'при изменении наименования подставляем код
   End If
End Sub

Sub on_code_change(ByVal Target As Range)
Dim rngFind As Excel.Range    
    'Параметры команды "Find" получены с помощью макрорекордера и изменены мной.
    'У команды "Find" нужно указывать все параметры, т.к. команда "Find"
        'связана с Excel-окном "Найти и заменить". И если не указать какой-то параметр,
        'то параметр может быть подставлен из окна "Найти и заменить" и макрос
        'может дать неправильный результат.
    'Если будет найдено, то найденной ячейке будет присвоено VBA-имя "rngFind".
        'С помощью этого имени можно воздействовать на найденную ячейку.
    ' LookAt:=xlWhole - ищется полное совпадение.
    Set rngFind = Worksheets(2).Range("A1:A900").Find(What:=Target.Text, LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
    
    'Если не найдено, то в переменной "rngFind" будет слово "Nothing".
    If rngFind Is Nothing Then
        MsgBox "Не найдено.", vbExclamation
        Exit Sub
    End If
    
    'Offset позволяет обратиться к нужной ячейке относительно другой ячейки.
    'Offset(0, 2) - обращение к ячейке, которая находится в той же строки, но вправо на два столбца.
    'MsgBox rngFind.Offset(0, 1).Value
    Target.Offset(0, 1).Value = rngFind.Offset(0, 1).Value
'MsgBox ("Поменяли код")
End Sub

Sub on_name_change(ByVal Target As Range)
    Dim rngFind As Excel.Range 
  
    'Параметры команды "Find" получены с помощью макрорекордера и изменены мной.
    'У команды "Find" нужно указывать все параметры, т.к. команда "Find"
        'связана с Excel-окном "Найти и заменить". И если не указать какой-то параметр,
        'то параметр может быть подставлен из окна "Найти и заменить" и макрос
        'может дать неправильный результат.
    'Если будет найдено, то найденной ячейке будет присвоено VBA-имя "rngFind".
        'С помощью этого имени можно воздействовать на найденную ячейку.
    ' LookAt:=xlWhole - ищется полное совпадение.
    Set rngFind = Worksheets(2).Range("B1:B900").Find(What:=Target.Text, LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
    
    'Если не найдено, то в переменной "rngFind" будет слово "Nothing".
    If rngFind Is Nothing Then
        MsgBox "Не найдено.", vbExclamation
       Exit Sub
    End If
    
    'Offset позволяет обратиться к нужной ячейке относительно другой ячейки.
    'Offset(0, 2) - обращение к ячейке, которая находится в той же строки, но вправо на два столбца.
    MsgBox rngFind.Offset(0, -1).Value
    MsgBox Target.Offset(0, -1).Value
    'Target.Offset(0, -1).Value = rngFind.Offset(0, -1).Value
End Sub