Satır eklenince makro çalışmasın

[emre8456]

Arkadaşlar merhaba
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1:a10")) Is Nothing Then Call ht
End Sub

Bu kodlarımda a1 ve 10 arası hücre değişikliğinde ht adlı makro çalışıyor. Ama a1 ile a10 arasında satır eklediğimde yine makro çalışıyor. Bu aralığa satır eklediğimde makro çalışmaması için kodlarda nasıl değişiklik yapabilirim

 

[veyselemre]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a1:a10")) Is Nothing And Target.Cells.Count = 1 Then Call ht
End Sub

 

[emre8456]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a1:a10")) Is Nothing And Target.Cells.Count = 1 Then Call ht
End Sub

Veysel Bey Çok teşekkür ederim
Şöyle bir sorum daha olacak a1:a10 hücrelerinde değişiklik yaptığım zaman karşılığı olan 3 satırı kopyalasın. Örnek a8 değiştiğinde b8:d8 arasını kopyalasın