alina_9

следующая процедура для ComoBox заполняет список Данные с листа"Прейскурант":
Private Sub ComoBox1_Enter()
ComoBox1.Clear
Sheets("Прейскурант").Select
Dim i As Integer, j As Integer
i = 2
Do
i = i + 1
If Cells(i, 1) = "" Then
j = i
Exit Do
End If
Loop
For n = 2 To i
ComoBox1.AddItem Cells(n, 1)
Next n
End Sub

в раскрывающемся списке должны появиться коды товаров-а у меня список пустой

iks2

У вас никак не используется переменная j.
В цикле Do - Loop ей присваивается значение i и сразу выход из цикла. Надо полагать, что в цикле For - Next должна стоять j , а не i. Отсюда и результат.