listbox diğer stünları getirmek

[ofbayoglu]

arkadaşlar merhaba aşağıda yazdığım kodda yandaki sütunları getirebilmek için nasıl bir ilave yapmam gerekiyor.
-----------------------------------------------------------------------------------------
Private Sub Tb2_Firma_Change()
Lb2_Carilist.Clear
SonSatır = WorksheetFunction.CountA(wsCari.Range("A:A"))

For satır = 2 To SonSatır
On Error Resume Next
Buldum = WorksheetFunction.Search(Tb2_Firma, wsCari.Cells(satır, 1), 1)
If Err.Number > 0 Then
Err.Number = 0
Else
Lb2_Carilist.AddItem wsCari.Cells(satır, 1)
End If

Next satır
End Sub
-----------------------------------------------------------------------------------------