Private Sub CommandButton2_Click()
Range("table").Offset(Range("table").Rows.Count).Resize(1).Value = ComboBox1.Value
Update
End Sub
Private Sub UserForm_Initialize()
Update
End Sub
Private Function Update()
ComboBox1.List = Range("table").Value
End Function