Господа помоги пожалуйста программным кодом!

Есть лист в Excel " Кафель"
В нем имееются 2 колонки - Код и Название

Необходимо добавить в Listbox1 две колонки c содержанием кода и названия.

код Название кафеля
1 Белый
2 Черный
3 Синий



Я могу добавлять только все в 1 столбец, подскажите как добавить в 2 столбца.
И как потом обращаться к этим столбцам чтобы присвоить данные к другим переменным.

Вот что у меня имеется

Worksheets.Item("Кафель").Activate
' Выбиделяем диапазон
Dim kaf As Range
' Объект выделения
Set kaf = Range("A2:B4")
' Выделяем
Dim vars As Variant
'Идем по списку
For Each vars In kaf
' Добавляем в список
UserForm3.ListBox1.AddItem (vars)
Next vars


Помогите люди добрые!!!!

не забудь только columnCount 2 поставить