Combobox ve Textboxtan veri aktarma

[akineton_1]

Mrb.Öncelikli Olarak emeği geçen herkese teşekkur ederim.
tablo üzerinde çalışıyorum
tabloda 8 combobox 7 text box var
bunlardaki verileri seçerek veya elle girerek ilgili sutunlara aktarmak istiyorum

kod şu şekilde ama hata verıyor neresinde yanlışlık olduğunu söyleyebilirmisniz

Sub Aktar()
Dim box
Dim text
Set S4 = Sheets("LİST")
box = Array(S4.ComboBox1, S4.ComboBox2, S4.ComboBox3, S4.ComboBox4, S4.ComboBox5, S4.ComboBox6, S4.ComboBox7, S4.ComboBox8)
son = S4.Range("A65536").End(xlUp).Row + 1
text = Array(S4.TextBox1, S4.TextBox2, S4.TextBox3, S4.TextBox4, S4.TextBox5, S4.TextBox6, S4.TextBox7)
For i = 1 To 5
S4.Cells(4, i).Value = box(i - 1)
S4.Cells(4, i).Value = text(i - 1)
S4.Cells(son, i).Value = box(i - 1)
S4.Cells(son, i).Value = text(i - 1)
Next i
End Sub