Sayfada girilen veriye göre diğer sayfada aynısı yazılınca engelleme

[istanbulcahan]

Ekteki dosyada worksheet te kod

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("d6:e32")) Is Nothing Then Exit Sub
Cancel = True
Application.ScreenUpdating = False
Application.Calculation = xlManual
adı = Trim(Cells(Target.Row, "d").Value)
soyadı = Trim(Cells(Target.Row, "e").Value)
Cells(Target.Row, "B").Value = ""
If adı = "" Then Exit Sub
If soyadı = "" Then Exit Sub
For r = 2 To Worksheets("BİLGİ GİRME").Cells(Rows.Count, "a").End(3).Row
bulunan1 = Trim(Sheets("BİLGİ GİRME").Cells(r, "a").Value)
bulunan2 = Trim(Sheets("BİLGİ GİRME").Cells(r, "b").Value)
If bulunan1 = adı And bulunan2 = soyadı Then
Cells(Target.Row, "b").Value = Sheets("BİLGİ GİRME").Cells(r, "c").Value
End If
Next

Application.ScreenUpdating = True
Application.Calculation = xlAutomatic

End Sub

"Bilgi girme" sayfasındaki engelleme listesinde adı soyadı yer alan kişi "İban listesinde adı ve soyadı" yazılınca otomatikman silecek ve "engel.txt dosyasına otomatikman adı-soyadı ve diğer bilgilerini yazmasını istiyorum. Nasıl yapılabilir.