Datos repetidos de una columna con combobox

hola gracias por tu aportación..pero aun
me sigue sin funcionar...he optado por otro método pero no hace lo que
la instrucción dice te pongo lo que tengo puesto:
Private Sub UserForm_Activate()
Sheets("Gastos").Select
ComboBox1.List = Range("A2", Range("B65536").End(xlUp)).Value
ComboBox1.ColumnCount = 2
ComboBox1.ColumnWidths = 30
End Sub
hasta
aquí todo solucionado me muestra todos los nombres repetidos en la
misma columna, y en esta otra instrucción tengo puesto esto para el
combobox:
Private Sub ComboBox1_Click()
If ind = 1 Then
ind = 0
Exit Sub
End If
dato = ComboBox1.Value
rango = "A2:I10000"
Set midato = Sheets("Gastos").Range(rango).Find(dato, LookIn:=xlValues, LookAt:=xlWhole)
If Not (midato) Is Nothing Then
ubica = midato.Address(False, False)
TextBox1.Value = Sheets("Gastos").Range(ubica).Offset(0, 0).Value
TextBox2.Value = Sheets("Gastos").Range(ubica).Offset(0, 1).Value
TextBox3.Value = Sheets("Gastos").Range(ubica).Offset(0, 2).Value
TextBox4.Value = Sheets("Gastos").Range(ubica).Offset(0, 3).Value
TextBox5.Value = Sheets("Gastos").Range(ubica).Offset(0, 4).Value
TextBox6.Value = Sheets("Exsistencias").Range(ubica).Offset(1, 6).Value 'unidades pedidas
TextBox8.Value = Sheets("Exsistencias").Range(ubica).Offset(1, 4).Value 'stock actual
control = 1
Else
MsgBox "No se encuentra los datos del Proveedor"
End If
Set midato = Nothing
End Sub
lo
del combobox1 lo he solucionado, pero al cambiar que muestre 2 columnas
ahora cuando pulso el combobox1 no me muestra o no localiza los datos
de textbox6 y textbox8,por que la instrucción que tiene es ubicar el
código al que corresponde de la hoja exsistencias..en que estoy
fallando...Gracias un saludo