title: Worksheet_Change Not Firing after Button Click Macro Added to Module
body: <p>I have the following code (which clears the values in dependent drop downs) in the Sheet2 Code Window</p>
  
  <pre><code>    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
  </code></pre>
  
  <p>That code worked fine until I added a Button and the following code (which copies the existing row and inserts the selection into a new row) in Module1.  Now the Button Event works fine but the Change event doesn't seem to ever fire.</p>
  
  <pre><code>    Sub AddRow()
      Dim LastRow As Long
      Dim NextRow As Long
      With Sheet2
          LastRow = .Range("B" &amp; .Rows.Count).End(xlUp).Row
          NextRow = LastRow + 1
              With .Range("B" &amp; LastRow &amp; ":I" &amp; LastRow)
                    Range("B" &amp; LastRow &amp; ":I" &amp; LastRow).Select
                    Selection.Copy
                    Range("B" &amp; NextRow &amp; ":I" &amp; NextRow).Select
                    Selection.Insert Shift:=xlDown
                    Range("C" &amp; NextRow &amp; ":I" &amp; NextRow).Select
                    Selection.Clear
              End With
      End With
      End Sub
  </code></pre>
  
  <p>Any Suggestions?</p>