VBA. Проблемы с диапазоном функций

Question

В настоящее время я работаю над небольшим фрагментом кода, который позволит мне выбрать несколько задач из выпадающего меню в одной ячейке. Я только ищу диапазон ячеек, для которого я хотел бы применить этот код, но я не могу заставить его работать с. функция дальностиМожет ли кто-нибудь взглянуть на это?

Имейте в виду, что я новичок в этом:))

Вот мой код:

https://gist.github.com/ciausalo/cb63d2d3e725d11999608ffb0945c36a

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Oldvalue As String
Dim Newvalue As String
Application.EnableEvents = True
On Error GoTo Exitsub
If Target.Range = "$B$2:$H$22" Then
  If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then
    GoTo Exitsub
  Else: If Target.Value = "" Then GoTo Exitsub Else
    Application.EnableEvents = False
    Newvalue = Target.Value
    Application.Undo
    Oldvalue = Target.Value
      If Oldvalue = "" Then
        Target.Value = Newvalue
      Else
        If InStr(1, Oldvalue, Newvalue) = 0 Then
            Target.Value = Oldvalue & ", " & Newvalue
      Else:
        Target.Value = Oldvalue
      End If
    End If
  End If
End If
Application.EnableEvents = True
Exitsub:
Application.EnableEvents = True
End Sub

Я с нетерпением жду ваших мыслей.