Merhaba alttaki kod işinizi görür.Combo seçilince ComboBox_FirmaUnvani.Tag  buna satır no geliyordu varsa.Comcodan seçilen yoksada mesaj yazdırdım yani fazla kod eklemedim.
Kısaca
ekledim
yerine.

Private Sub btn_KayitSil_Click()

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

    With ThisWorkbook.Worksheets("Ana_Sayfa")

        If ComboBox_FirmaUnvani.Tag = "" Then

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

            Exit Sub

        End If

        .Unprotect "171717"

        .Rows(ComboBox_FirmaUnvani.Tag).EntireRow.Delete

        .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