Dear colleagues,

I was able to find the loop to go through the combo box but I have trouble copying and saving the results for each loop. Before repeating the loop, I want to copy the values in G10 and G11 for each product and paste to respective rows and columns in sheet2. Please help

Private Sub CommandButton10_Click()
Dim c As Long
With Sheet1.ComboBox1
For c = 0 To .ListCount - 1
.Value = .List(c)

call getdata
call cleardata

Next
End With
End Sub