When executing the following code:

Do
If MyCellMe.Value = A1NmeMe Then
Sheets(TagNmeMe).Select
Range("B4").Select
If MyCellMe.Value = "" Then
ActiveCell.EntireRow.Copy
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Application.EnableEvents = True
Range("A4").Select
If MyCellMe.Value = "" Then
Set MyCellMe = MyCellMe.Offset(1, 0)
If MyCellMe.Address = EndCelMe.Address Then
MsgBox "Needs to insert new rows"
Exit Do
End If
Else
Set MyCellMe = MyCellMe.Offset(1, 0)
End If
Else
Set MyCellMe = MyCellMe.Offset(1, 0)
End If
Else
Set MyCellMe = MyCellMe.Offset(1, 0)
End If
Loop

This code gets executed, which is on a seperate workseet:

Private Sub WorkSheet_Change(ByVal Target As Range)
vArr = Array("AMXD", "BAMB", "BAVR", "BAVS", "CVG", "CITI", "DISC", "WAMU")

' commeted out code
'
'
'
'
'
ErTherapy:
Application.EnableEvents = True
End Sub