like this?

[VBA]
Private Sub CommandButton1_Click()
Worksheets("Sheet1").Range("A9").Value = ComboBox1.Value
End Sub

[/VBA]