Worksheet_Change не срабатывает после макроса нажатия кнопки, добавленного в модуль

Question

У меня есть следующий код (который очищает значения в зависимых раскрывающихся списках) в окне кода Sheet2

    Private Sub Worksheet_Change(ByVal Target As Range)
    'Update by Extendoffice 2018/06/04
    On Error GoTo ErrorHandler
    Application.EnableEvents = False
    If Target.Column = 5 And Target.Validation.Type = 3 Then
    Target.Offset(0, 1).Value = ""
    Target.Offset(0, 2).Value = ""
    End If
    If Target.Column = 6 And Target.Validation.Type = 3 Then
    Target.Offset(0, 1).Value = ""
    End If
    Application.EnableEvents = True

    ErrorHandler:
    Application.EnableEvents = True
    End Sub

Этот код работал нормально, пока я не добавил Button и следующий код (который копирует существующий строка и вставляет выделение в новую строку) в Module1. Теперь событие Button работает нормально, но событие Change, похоже, никогда не срабатывает.

    Sub AddRow()
    Dim LastRow As Long
    Dim NextRow As Long
    With Sheet2
        LastRow = .Range("B" & .Rows.Count).End(xlUp).Row
        NextRow = LastRow + 1
            With .Range("B" & LastRow & ":I" & LastRow)
                  Range("B" & LastRow & ":I" & LastRow).Select
                  Selection.Copy
                  Range("B" & NextRow & ":I" & NextRow).Select
                  Selection.Insert Shift:=xlDown
                  Range("C" & NextRow & ":I" & NextRow).Select
                  Selection.Clear
            End With
    End With
    End Sub

Есть предложения?