Option Explicit

Private Sub ListBox_Click()
'wpisanie do kolejnej komórki z zakresu C28:C33
'po wybraniu pozycji z ListBox

Static IdProduktu As Integer 'chociaż tutaj typ nie ma większego znaczenia - równie dobrze może być String
Dim odczytaneID As Integer
Dim nrWiersza As Integer
Dim i As Integer

    nrWiersza = ListBox.ListIndex + 2
    '+ 2 się bierze z pominięcia nagłówka w arkuszu "Pozycje"
    'i z indeksowania od 0 w liście, po to, by nrWiersza
    'był zgodny z wierszem produktu w arkuszu "Pozycje"
    odczytaneID = Worksheets("Pozycje").Cells(nrWiersza, 1).Value
    
    If odczytaneID = IdProduktu Then
        'porzucenie procedury jeżeli jest wskazywany
        'kolejny raz ten sam produkt
        Exit Sub
    Else
        IdProduktu = odczytaneID
    End If
   
    i = 28 'od tego wiersza zaczyna wpisywać do komórek w kolumnie C
    Do While (i <= 33) 'i sprawdza czy jest cokolwiek wpisane do 33
        If (Worksheets("Korekta").Cells(i, 3).Value = "") Then
            'wstawienie wartości do pierwszej "pustej" komórki
            'i porzucenie pętli Do..Loop
            Worksheets("Korekta").Cells(i, 3).Value = IdProduktu
            Exit Do
        End If
    i = i + 1
    Loop
    
End Sub

Public Sub WypelnjListe()
'aktualizacja zawartości listy
    Dim i As Integer
    
    ListBox.Clear 'wyczyszczenie ListBoxa
    
    i = 2 'zakładam, że w pierwszym wierszu jest nagłówek tabeli
    
    Do While (Worksheets("Pozycje").Cells(i, 2).Value <> "")
        
        'działa dopóki nie napotka na "pustą" komórkę w kolumnie "B"
        'i wypełnia ListBox wierszem "i" w kolumnie "B"
        ListBox.AddItem (Worksheets("Pozycje").Cells(i, 2).Value)
        i = i + 1
        
    Loop
    
    'i jeszcze jedna "pusta linia" w liście, żeby ładniej wyglądało
    ListBox.AddItem ("")
End Sub

Private Sub Worksheet_Activate()
    'aktualizacja listy po zmianach w innych arkuszach
    WypelnjListe
End Sub

Option Explicit

Private Sub Workbook_Open()
    'wypełnienie listy przy otwarciu pliku
    Arkusz1.WypelnjListe
End Sub

Option Explicit
Public Sub WypelnijCombo()

Dim i As Integer

Worksheets("Arkusz2").cboTest.Clear
i = 1

Do While (Worksheets("dane").Cells(i, 1) <> "")
'działa dopóki nie napotka pustej komórki w kolumnie "A"
    Worksheets("Arkusz2").cboTest.AddItem (Worksheets("dane").Cells(i, 1))'ładuje do cboTest zawartość komórek z pierwszej kolumny
    i = i + 1
Loop

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
'aktualizacja zawartości cboTest przy zmianie zawartości arkusza
    WypelnijCombo
End Sub

Private Sub cboTest_Change()
'aktualizacja komórek przy zmianie w cboTest
    Worksheets("Arkusz2").Cells(1, 5).Value = cboTest.ListIndex
'lub jeżeli klucze byłyby w drugiej kolumnie arkusza "dane"
'Dim wiersz as Integer
'wiersz = cboTest.ListIndex
'Worksheets("Arkusz2").Cells(1, 5).Value = Worksheets("dane").Cells(wiersz,2).value
    Worksheets("Arkusz2").Cells(2, 5).Value = cboTest.Value
End Sub

Private Sub Workbook_Activate()
'wypełnienie cboTest przy otwarciu arkusza
    Arkusz2.WypelnijCombo
End Sub