Vba'da Hücrelere yazım hatası

[yaseta]

         hücrelere yazma hatasını düzeltiniz?
  

   
  Private Sub ComboBox1_Change()
  TextBox1.Text = ComboBox1.ListIndex
  End Sub
   
  Private Sub CommandButton1_Click()
  Dim hucre As String
  a = ComboBox1.ListCount
  Range("b2").Value = a
  ComboBox1.ListIndex = 2
  hucre = "c" + Str(1)
  Range("b2").Value = hucre
  Range("b3").Value = ComboBox1.Value
  For I = 1 To a Step 1
  hucre = "c" + Str(I)
  ComboBox1.ListIndex = I - 1
  'hucre = InputBox("gir")
  Range(hucre).Value = ComboBox1.Value
  Next I
  End Sub
  Private Sub UserForm_Activate()
  ComboBox1.AddItem (Sayfa1.Range("a1").Value)
  ComboBox1.AddItem (Sayfa1.Range("a2").Value)
  ComboBox1.AddItem (Sayfa1.Range("a3").Value)
  End Sub