Abey bence tag yöntemi ile yapılan sorun çıkartabilir.
En iyisi alttaki kodu kullanın.

Private Sub btn_KayitSil_Click()

    Dim bul As Range

    If MsgBox("Veriler Silinecek, Emin misiniz...?", vbExclamation + vbYesNo, "Firma Tanymlama Formu") = vbNo Then Exit Sub

    With ThisWorkbook.Worksheets("Ana_Sayfa")

        Set bul = .Range("A:A").Find(TextBox_ID.Value, , xlValues, 1)

        If bul Is Nothing Or TextBox_ID.Value = "" Then

            MsgBox "Kayit bulunamadi..", vbCritical, "Hata"

            Set bul = Nothing

            Exit Sub

        End If

        .Unprotect "171717"

        .Rows(bul.Row).EntireRow.Delete

        Set bul = Nothing

        .Protect "171717"

        Call temizle

        TextBox_Tarih = Format(Date, "dd.mm.yyyy")

    End With

    TextBox_Tarih.SetFocus

    With TextBox_Tarih

        .SelStart = 0

        .SelLength = .TextLength

    End With

    btn_KayitEkle.Enabled = True

End Sub