Makronun uygulama alanını sınırlandırmak

[EKREM1661]

İyi çalışmalar arkadaşlar..! Aşağıda verdiğim makro, H:J aralığında herhangi bir hücrede üzerine çift tıklanan bir veriyi bırakır, diğer mükerrerleri temizler..
Ancak H:J arasında sınırlı olmasına rağmen sayfanın her tarafında çalışıyor. Bunu düzeltebilir miyiz.?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Uyarı = MsgBox("Üzerine çift tıkladığınız veri kalır, mükerrer olan diğer veriler silinir..!" & vbCrLf & " " & vbCrLf & "Devam Edilsin mi.?", vbSystemModal + vbInformation + vbYesNo, "UYARI")
If Uyarı = 6 Then
Else: Unload UserForm1: Exit Sub
End If
Dim i As Collection
Set i = New Collection
Dim ara As Range
i.Add Target.Value
son = Sheets("PersnAtama1").Cells(Rows.Count, "H").End(3).Row
Set ara = Range("H2:J" & son).Find(Target.Value, , , xlWhole)
If Not ara Is Nothing Then
bul = ara.Address
Do
Set ara = Range("H2:J" & son).FindNext(ara)
ara.ClearContents
Loop While Not ara Is Nothing And bul <> ara.Address
End If
Target.Value = i.Item(1)
Cancel = True
MükerrerniKaldir
End Sub

 

[Ömer]

Merhaba,

Kod başlığının hemen altına ekleyiniz.

If Intersect(Target, [H:J]) Is Nothing Then Exit Sub

.

 

[EKREM1661]

Ömer bey, hocam..' Çok teşekkür ederim..