gerçi soru çözüldü ama farklı bir yöntem buldum onu da eklemek istedim
Not1: aslında her silmeden sonra firmaunvan açılır kutusu güncellenmeli
Not2: bu kadar az veriyle hızını kontrol edemedim hızla ilgili bilgi verirseniz sevinirim

Sub KytSil(ByVal IDBul As String)



Dim tbl As ListObject

Dim Sonuc As Range

Dim IDBul As String



With ThisWorkbook.Worksheets("ana_sayfa")

  

  Set tbl = .ListObjects("Tablo1")



'1. sütunda veri arama

  On Error Resume Next

  Set Sonuc = tbl.DataBodyRange.Columns(1).Find(IDBul, LookAt:=xlWhole)

  On Error GoTo 0



'bulunan verini silinmesi

        .Unprotect "171717"

            If Not Sonuc Is Nothing Then

              xTblBul = tbl.ListRows(Sonuc.row - tbl.HeaderRowRange.row).Index

              tbl.ListRows(xTblBul).Delete

            End If

        .Protect "171717"

End With

End Sub