وهذه اضافة الى كود الاستاذ عبد الله حفظه الله حتى يكتمل المطلوب
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 8
MsgBox Me.Controls("ComboBox" & i).Value
Sheets("2").Cells(3, i).Value = Sheets("1").Cells(i + 1, 1).Value
Next i
End Sub