mükerrer kontrol

[sirkülasyon]

Sub Kayıt_Ekle()
Dim S1 As Worksheet, S2 As Worksheet
Dim Satır As Long, Say As Integer
Set S1 = Sheets("GİRİŞ")
Set S2 = Sheets("LİSTE")
Say = WorksheetFunction.CountIf(S2.[B:B], S1.[B11])
Satır = S2.Cells(65536, 1).End(xlUp).Row + 1
If Say > 0 Then
If MsgBox("Mükerrer kayıt !" & vbCrLf & "Devam ederseniz kişiye ait bilgiler değişecektir." & vbCrLf & "Devam etmek isiyor musunuz ?", vbCritical + vbYesNo, "Dikkat !") = vbNo Then GoTo Son
Set Bul = S2.[B:B].Find(S1.[B11], LookAt:=xlWhole)
If Not Bul Is Nothing Then
Satır = Bul.Row
End If
End If
S2.Cells(Satır, 2) = S1.[B11]
S2.Cells(Satır, 3) = S1.[D11]
S2.Cells(Satır, 4) = S1.[E11]
S2.Cells(Satır, 5) = S1.[F11]
S2.Cells(Satır, 6) = S1.[G11]

MsgBox "Veri kaydı yapılmıştır.", vbInformation
Son:
End Sub



Yukarıdaki makro KORHAN abime ait bir makro. BU makro sadece B:B sütununa bakarak mükerrer kontrolü yapıyor.
Ben istiyorumki B:B, D, E:E, F:F,G:G sütunlarına da baksın.
Ayrıca A11 den itibaren de sıra numarası versin.
Korhan abimin bu makro koduna eklemeyi rica etsem yapabilir misiniz?