Несколько столбцов в listbox

Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
Dim sh As Worksheet
Dim path, list, cena, k, cat, mat, vid, ed
 
For k = 4 To Worksheets("настройки").Range("A200").End(xlUp).Row
    
If Worksheets("настройки").Cells(k, 1) <> "" Then
 
        path = Worksheets("настройки").Cells(k, 1).Value
        list = Worksheets("настройки").Cells(k, 2).Value
 
    Set sh = GetObject(path).Sheets(list)
    Dim dia As String
    
   'список наименование и цена
  cat = Worksheets("настройки").Cells(k, 3).Value
  
  If ComboBox1.Value = sh.Range(cat).Value Then
  
  dia = Worksheets("настройки").Cells(k, 4).Text
  cena = Worksheets("настройки").Cells(k, 5).Text
  ed = Worksheets("настройки").Cells(k, 6).Text
  mat = Worksheets("настройки").Cells(k, 8).Text
  vid = Worksheets("настройки").Cells(k, 9).Text
   
 
ListBox1.AddItem ""
 
ListBox1.list(0, 0) = dia?????? 
ListBox1.list(0, 1) = cena??????
ListBox1.ColumnCount = 2
 
 
  ListBox2.AddItem mat
  ListBox3.AddItem vid
  ListBox4.AddItem ed
 
   
  End If
 
     Else
  End If
  
 Next k
sh.Parent.Close (False)
End Sub