Excel - listfillrange ayuda

saludos... estoy haciendo una hoja de ingreso de datos... tengo problemas con el combobox... quiero que este combobox cambie automaticamente su listfillrange...le explico mejor...

Mi combobox tiene un listfillrnage de "a4:a250", pero a veces tengo que borrar datos, y el combobox me muestra espacios en blanco, quiero que se ajuste solo al nuevo rango, no me acuerdo el codigo.... alguien podria ayudarme, y en donde pondria ese codigo? en un private sub o una macro (sub)....

mmm yo probaria con un bucle que recorra las filas hasta que se tope con la ultima
ejemplo

finalrow = Range("A65536").end(xlup).Row

Do while activecell.row <> finalrow
if activecell.value <> empty then
combobox1.additem activecell.value
end if
activecell.offset(1,0).select
loop