Agregar datos en un ListBox VBA

Como estas, en este código que te paso al iniciar el formulario se cargan dos combo box y un list box

'carga los datos en los combobox

'Evita movimientos de la pantalla
Application.ScreenUpdating = False

'Se activa la hoja que contiene los datos

Sheets("proveedores"). Activate

'Hace visible la hoja, el caso que estuviere invisible

Sheets("proveedores").Visible = True

'Selecciona el rando donde empezar a buscar

Range("b2").Select

'Si no es vacia la celda carga el combo proveedor y proveedorB, como así también

'el listobox1 y combo proveedore D

Do While ActiveCell <> Empty

ComboProveedor. AddItem ActiveCell

ComboProveedorB. AddItem ActiveCell

ListBox1. AddItem ActiveCell

ComboProveedorD. AddItem ActiveCell

'Pasa a la fila siguiente

ActiveCell.Offset(1, 0).Select

Loop

'Oculto la hoja de nuevo

Sheets("proveedores").Visible = True

Espero te sirva, comenta luego de probar el código y adaptarlo a tu proyecto.