i'm using adding the value in particular cell is like this.
Private Sub CommandButton1_Click()
'///ListIndex starts at zero so add 1 to get the row.. To get the column add two because Column A does not contain a date
rData.Cells(Me.ComboBox1.ListIndex + 1, Me.ComboBox2.ListIndex + 2).Value...