Fonksiyon formülünü makro'ya çevirme

[M.ACAR]

{=EĞER(SATIRSAY($K$8:K8)<=$L$2;İNDİS($B$8:$B$6500;KÜÇÜK(EĞER(SIKLIK(EĞER($B$8:$B$65000<>"";KAÇINCI("~"&$B$8:$B$65000;$B$8:$B$65000&"";0));SATIR($B$8:$B$65000)-SATIR($B$8)+1);SATIR($B$8:$B$65000)-SATIR($B$8)+1);SATIRSAY($K$8:K8)));"")}

Yukarda yazılı formülü ekli sayfamda nasıl makro olarak yazabilirim,Bu formülü kullandığımda çok yavaşlıyor,Yardımcı olursanız sevinirim.

 

[fedeal]

Kodlar altta, iyi çalışmalar.(mükerrer kayıtlar ile çalışmalar formda mevcut)

Sub N()
D = 8
For L = 8 To Range("B65536").End(xlUp).Row
If WorksheetFunction.CountIf(Range("B8:B" & L), Cells(L, 2).Value) > 1 Then
Else
Cells(D, "K").Value = Cells(L, 2).Value
D = D + 1
End If
Next
End Sub