Abey eklediğiniz dosyada il seçince ilçe comboya rakamlar geliyordu onun yerine isimleri getirtmiştim.
Dosyanın son halini yükleyip neye tıklanınca hata olyor yada sayfaya kaydedincemi hata oluyor onu açıklarmısınız.

btn_KayitEkle_Click kodundaki ComboBox_Sehir.Value = "" satırının üstüne sayy = 1 ekleyin son yolladığım dosya için.

---

Abey eklediğim dosyaya biraz gereksiz kodlar eklemişim ama çalışıyor.
ilk eklediğinz dosyadaki sadece IlceAktar kodunu alttaki gibi değiştirirseniz daha kısa olur.
Benden bu kadar bugünlük.Hayırlı geceler.

Sub IlceAktar()

    Dim x, y As Integer

    With ComboBox_Sehir

        If Not IsNumeric(.Value) Then Exit Sub

        ComboBox_Ilce.Clear

        y = Sheets("TANIMLAR").Range("A1000").End(xlUp).Row

        For x = 2 To y

            If Sheets("TANIMLAR").Range("A" & x).Value = .List(.ListIndex, 0) Then _

            ComboBox_Ilce.AddItem (Sheets("TANIMLAR").Range("D" & x).Value)

        Next

        .Value = .List(.ListIndex, 1)

    End With

End Sub

Feraz hocam hata verdi maalesef. İyi Geceler dilerim.

Abey bilgisayarı kapattığım için deneyemedim.Ben sadece il ve ilçeleri seçip sayfaya aktartmıştım hata vermemişti.
Birde siz böyle deneyin hata verecek mi?
Aslında tanımlamalar sayfasındaki il ve ilçeleri sayılar yerine mesela il yazıp karşısına ilçe yazıp böyle devam etseydini comboların sütun sayısını 2 yapmak zorunda kalmazdınız ve hiç hata olmazdı.

---

Yani Alttaki gibi A ve B sütunlarına

Adana  Adana ilçe
Adana  Adana ilçe2
Aksaray  Aksaray ilçe
Aksaray  Aksaray ilçe2

Bence ilk mesajınızdaki hata sebebi şu.
Şehir ve ilçe combolarını doldurup sayfaya aktarınca şehir comboboxunun change kodu içinde olduğu için ve sayfaya aktarma kodundada şehir comboxunu temizlediğiniz için listindex -1 olarak olduğu için hata veriyor.-1 demek seçim yapılmadığı için olur combonun ilkini seçince listindex 0 olur.
Mobilden bu kadar anlatabildim abey.