Soru Combobox1 Liste Değeri Değişirse

[sirkülasyon]

 Dim Son As Long
    Dim Sayfa As Worksheets
      SayfaBaşlangıcNo = 8
    Son = Sheets("Yaklaşık Maliyet").Cells(Sheets("Yaklaşık Maliyet").Rows.Count, "C").End(xlUp).Row + 1
    If Application.WorksheetFunction.CountIf(Sheets("Yaklaşık Maliyet").Range("C:E"), TextBox1.Value) > 1 Then
        MsgBox "Aynı değere sahip başka bir kayıt bulunuyor. Lütfen farklı bir değer girin.", vbExclamation
        Exit Sub
    End If

    Sheets("Yaklaşık Maliyet").Cells(Son, 3).Value = TextBox1.Value
    Sheets("Yaklaşık Maliyet").Cells(Son, 4).Value = TextBox2.Value
    Sheets("Yaklaşık Maliyet").Cells(Son, 5).Value = TextBox3.Value
    Sheets("Yaklaşık Maliyet").Range("F6:G6").Merge
    Sheets("Yaklaşık Maliyet").Range("F6").Value = ComboBox1.Value
    Sheets("Yaklaşık Maliyet").Cells(Son, 6).Value = 1 * Format(TextBox4, "#,##0.00")
    Sheets("Yaklaşık Maliyet").Cells(Son, 7).Value = 1 * Format(TextBox5, "#,##0.00")
    If Not IsEmpty(Sheets("Yaklaşık Maliyet").Cells(Son, 3).Value) Then
        Sheets("Yaklaşık Maliyet").Cells(Son, 2).Value = Son - SayfaBaşlangıcNo + 1
    End If 
    MsgBox "Kayıt başarıyla eklendi.", vbInformation

Sizlerden Ricam: Combobox1 açılır listesinde 5 adet isim var.

Sayfanın 6. satırını kontrol edecek. Combobox1 de ki isim hangi hücrede ise o kısma aktaracak.
İsim yok ise 6.satırdaki birleştirilmiş hücredeki ismin yanına combobox1 değerini yazacak
TextBox4 ve TextBox5 değerlerini o ismin altına kaydedecek
Yardımcı olabilirseniz sevinirim. Şimdiden Teşekkür ederim.