Intersect

Ich möchte ein Makro nur ausführen, wenn eine Zelle in der Spalte J geändert wird. Wenn eine ganze Zeile kopiert und eingefügt wird (also auch die Zelle in Spalte J ) soll nichts geschehen. So siehts bei mir aus:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("J:J")) Is Nothing Then Exit Sub
If Intersect(Target, Range("A:I", "K:ZZ")) Then Exit Sub
Dim fs As Object
.
.
End if
End if

Laufzeitfehler 13 "Typen unverträglich" bekomme ich als Fehlermeldung
Vielleicht hat jemand noch einen anderen Ansatz.
Gruß
skyglider