Aynı verileri tek olarak saymak sureti ile toplamını almak

[Ahmet Sami]

Arkadaşlar sizden istediğim yardım. Aynı olan isimler vardır. Bunların teke düşürülerek H2 hücresine kaç ayrı kişi olduğunun toplamını almaktır.
Yani toplam 14 kişi olmasına rağmen bazı isimler aynı olduğu için aynı olanları toplamaması 8 olarak yazması gibi...
Dosya ektedir teşekkür ederim.

 

[çıtır]

H2 Hücresine kopyalayınız.

=TOPLA.ÇARPIM((B2:B20<>"")*(1/EĞERSAY(B2:B20;B2:B20&"")))

Sub teksay()
For i = 2 To 15
say = WorksheetFunction.CountIf(Range("B2:B" & i), Range("B" & i))
If say = 1 Then
s = s + 1
End If
Next i
Range("H2") = s
end sub

 

[Ahmet Sami]

Sayın çıtır çok teşekkür ederim sağolun

 

[çıtır]

Sayın çıtır çok teşekkür ederim sağolun

Rica ederim.Dönüş yaptığınız için teşekkür ederim.