VBA code comboboxes (skip blanks & avoid repeats)

[snb]

to ignore empty cells:

[vba]
sub snb
combobox1.list=filter([transpose(if(CTC-Form!BJ11:BJ100="","~",CTC-Form!BJ11:BJ100))],"~",false)
end sub
[/vba]