Sub run()
Dim a As String

tottal1 = Cells(Rows.Count, 2).End(xlUp).Row ' Считает колличесво строк в столбце В
For i = 4 To tottal1 'Цикл от 4 к счёту строк
kod = Cells(i, 1) 'Забирает код по нашей базе товара
nam = Cells(i, 2) 'Забирает наименование

For o = 1 To 5 Step 2 'Цикл в три шага для учёта наличия товара у всех ваших поставщиков
If Cells(i, 3 + o) = "" Then ' просматривает поле цена у каждого поставщика и если в поле что либо есть :
Else
total2 = Cells(Rows.Count, 11).End(xlUp).Row 'находит последнюю строку в конечной таблице
Cells(total2 + 1, 10) = kod ' Вставляет код по нашей базе
Cells(total2 + 1, 11) = nam ' Вставляет наименование
Cells(total2 + 1, 12) = Cells(i, 2 + o) ' вставляет код по базе поставщика
Cells(total2 + 1, 13) = Cells(i, 3 + o) ' вставляет цену
Cells(total2 + 1, 14) = Cells(2, 2 + o) ' Вставляет поставщика
End If
Next o
Next i
End Sub