Private Sub Worksheet_Change(ByVal Target As Range) ' процедура запускаемая при изменении в диапазоне Target
    If Target.Address(0, 0) = "D1" Then  ' если смещение на 0 строк и 0 столбцов от выбранной пользователем ячейки равно D1
        a_ = Replace(Replace(Target, "+  ", ""), "-  ", "")  ' то в переменную a_ записываем строку, содержащуюся в ячейке D1 без знаков "+  " и "-  "
        If InStr(x_, a_) Then ' если в  переменной x_  (для чего эта переменная?) содержится строка a_ , то
            z_ = Replace(Replace(x_, a_ & ",", ""), a_, "")  ' очищаем переменную x_ от переменной a_ с запятой и без запятой и записываем это все в переменную z_ ... Зачем?
            If Right(z_, 1) = "," Then  ' если справа в переменной z_ осталась запятая
                z_ = Left(z_, Len(z_) - 1) ' , то удаляем ее , с помощью этого выражения
            End If
        Else ' если в  переменной x_  НЕ содержится строка a_ , то
            z_ = x_ & a_  ' к x_ добавляется a_ и записывается все это в переменную z_
            If Left(z_, 1) = "," Then ' если в конце z_ есть запятая , то
                z_ = Mid(z_, 2) ' в переменную   z_ записываем первые 2 символа слева (Зачем?)
            End If
        End If
        Application.EnableEvents = 0   ' запрещаем события
        Target = z_ ' пишем в ячейку d1 значение переменной z_
        Application.EnableEvents = 1 ' разрешаем события
        SendKeys "%{down}" ' передаем в процедуру нажатие клавиш ALT +стрелка вниз, чтобы перейти к следующему значению в списке
        x_ = Target & "," ' пишем в переменную x_ значение из ячейки d1 плюс запятая
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)  ' процедура запускающаяся при выделении ячейки D1
    If Target.Address(0, 0) = "D1" Then
        Application.EnableEvents = 0  ' запрещаем изменение событий. Зачем?
        Target = ""  ' обнуляем значение в ячейке D1
        Application.EnableEvents = 1 ' разрешаем изменение событий ...?
        SendKeys "%{down}" ' передаем в процедуру нажатие клавиш ALT плюс стрелка вниз,чтобы можно было выбрать другие значения из списка  Зачем?
        x_ = ""  ' обнуляем переменную x_
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range) 'при изменении ячейки
    If Target.Address(0, 0) = "D1" Then 'если это Д1
        'Target - это ОДИН только что выбранный элемент списка
        a_ = Replace(Replace(Target, "+  ", ""), "-  ", "") 'меняем в Д1 "+  " и "-  " на пусто, полученное будет а_
        If InStr(x_, a_) Then 'Если в х_ присутствует значение а_
            z_ = Replace(Replace(x_, a_ & ",", ""), a_, "") 'убираем из х_ или а_ с запятой, или, если так не нашли, то просто а_
            If Right(z_, 1) = "," Then 'если справа оказыывается лишняя запятая
                z_ = Left(z_, Len(z_) - 1) 'убираем ее
            End If '
        Else 'Если в х_ отсутствует значение а_
            z_ = x_ & a_ 'прилепляем а_ справа к х_, обзываем все это z_
            If Left(z_, 1) = "," Then 'если слева лишняя запятая
                z_ = Mid(z_, 2) 'убираем ее
            End If '
        End If '
        Application.EnableEvents = 0 'откл реакцию на события
        Target = z_ 'суем полученное в Д1
        Application.EnableEvents = 1 'вкл реакцию на события
        SendKeys "%{down}" 'жмем Альт СтрелкаВниз
        x_ = Target & "," 'переменная (см. модуль 1) равна ячейке Д1 и запятая справа
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'при выделении ячейки
    If Target.Address(0, 0) = "D1" Then 'если это Д1
        Application.EnableEvents = 0 'откл реакцию на события
        Target = "" 'очищаем Д1
        Application.EnableEvents = 1 'вкл реакцию на события
        SendKeys "%{down}" 'жмем Альт СтрелкаВниз
        x_ = "" 'переменная (см. модуль 1) равна пусто
    End If
End Sub