|First, I see that you tried to bold some of the code in your post. You can't use the bold (or any other) tags inside the pre tags.|
Second, just because you already have a worksheet change macro in your sheet doesn't mean you can have "another" one.
Actually, it would still be one macro, it would just do different things based on the specific change. e.g.
Private Sub Worksheet_Change(ByVal Target As Range)
'Determine if change was to Column J (10)
If Target.Column = 10 Then
'Run Copy Row Code
'Determine if change was to W1
If Target.Address = "W$1" Then
'Run email code
Now, I don't have time to pour over your code in detail right now, but via a quick look, I don't see any place where you reference W1 and use the value as an email address.
myRecipient = Range("W1")
or something similiar to that...