a sütünundaki bilgilerin aynısı varsa c ye kes yapıştır

[kerim306]

macro da böle hata veriyor

Sub Makro1()
'
' Makro1 Makro
' Sub bul() For a = 2 To Cells(65536, 1).End(xlUp).Row If WorksheetFunction.CountIf(Columns(1), Cells(a, 2).Value) = 0 Then e = WorksheetFunction.CountA([d2:d65536]) + 1 Cells(e + 1, 4) = Cells(a, 2).Value End If If WorksheetFunction.CountIf(Columns(2
'
' Klavye Kısayolu: Ctrl+a
'
Range("D15").Select
Application.Run "'Yeni Microsoft Office Excel Çalışma Sayfası.xlsx'!Makro1"
Range("C2").Select
End Sub

Excelimde a sütünundaki bilgilerin aynısı varsa c ye kes yapıştır şeklinde birşey yapmak istiyorum