Çözüldü mükerrer kodu hata veriyor

[sirkülasyon]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo SON
If Intersect(Target, Range("B3:B5000")) Is Nothing Then Exit Sub
If Target <> "" Then
Target.Offset(0, -1) = WorksheetFunction.Max(Range("A3:A5000")) + 1
Else
Target.Offset(0, -1).ClearContents
End If
SON:



For X = [E65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("E3:E" & X), Cells(X, "E")) > 1 Then Rows(X).Delete
Next


tekrarsayisi = WorksheetFunction.CountIf(Range("b3:m500"), Target)
If tekrarsayisi > 1 Then

Rows(Target.Row).Delete
End If
End Sub



Mükerrer var ise satırı silsin istiyorum.
Yukarıda yer alan kodda " tekrarsayisi = WorksheetFunction.CountIf(Range("b3:m500"), Target)" kısmı hata veriyor.

Yardımcı olabilir misiniz?

 

[EmrExcel16]

Merhaba

On Error GoTo SON

bu satırdan sonra

If Target.Columns.Count > 1 Then Exit Sub

bu satırı eklersen sorun çözülebilir

 

[sirkülasyon]

Çok teşekkür ederim.
Sağ olasın

 

[EmrExcel16]

Rica ederim sende sağ olasın.