COMBOBOX DE 2 COLUMNAS

Buenas muchachos, deseo que alguien me ayude con lo siguiente, a
continuaciòn describo la situación:

1º Tengo una hoja, donde se lista una serie de datos que son
actualizables, me refiero a una lista de clientes especificamente que
va creciendo según el registro de nuevo clientes.

A B
C
1 codtipoclientes nombre
2 1 COMER./DISTR. ELECTRICA EL
3 2 MINERIA MI
4 3 CONSTRUCCIÓN CO
5 4 ENERGETICO EN
6 5 CAP/TRAT DISTRIB DE AGUAS AG
7 6 ESTATAL ES
7 7 OTROS OT


Estos luego son cargados dinamicamente, via codigo a un combo box
(ubicado en un formulario) mediante el siguiente procedimiento:

Public Sub Cargar_CB(ByRef NombreCB As Object, ByVal hoja As String,
ByVal CasillaI As String)

'NombreCB es el combo box al cual se va cargar la lista
'hoja, es donde se encuentra la lista de clientes
'CasillaI es donde se inicia la lista de datos

Worksheets(hoja).Activate
Range(CasillaI).Select

Do While ActiveCell <> Empty

ActiveCell.Offset(0, 0).Select

With NombreCB
.AddItem ActiveCell.Value
End With

ActiveCell.Offset(1, 0).Select
Loop


End Sub

Hasta ahi todo bien el código, el cual lo llamaba desde el formulario
de la siguiente manera.

Cargar_CB Me.cmbTipoCliente, "tbclientes", "b2"

2º Ahora cambio la propiedad ColumnCount=2 del combobox, con el objeto
de que se cargue tanto la lista encabezada por B1 y la lista
encabezada por C1 y ahi surgue mi problema ya que quiero ke mediante
codigo esos valores se carguen al combox box, e intentado varios
caminos y no he logrado un resultado favorable.

Espero que alguien me ayude a despejar este incoveniente.


Saludos

Gleiser