Rango de ciertas columnas solamente, para Combobox

Hola amigos.

Tengo este codigo que llena el ComboBox

        Private Sub CargaCombus() ' CARGAR COMBOBOX

            Dim cargo       As Variant

            Dim anchura     As Variant

            With Base

                cargo = .Range("A2:H2") ' ("A2:B2,E2:H2")  aqui el rango

            End With

            With cmbCampo

                .List = WorksheetFunction.Transpose(cargo)

                '.Text = ""

            End With

        End Sub[/CODE]

Son 8 columnas desde la A a la H

Lo que pretendo es que en el combo solo se vean (se llene) las columnas A, B, E, F, G, H,