Remove duplicate values from Listbox

Hi All,

Column A has values increasing by 1 but not necessarily each row, i.e.

1
1
1
2
2
2
3
3
3
4
4
4
4
5
5
5
5
6
7
7
7
8
8
9
10
10
11
11
11
11
12
13
13
14
14
14

I have a listbox which I want to Initialize by listing these values but not duplicating them (so in this case it would contain 1-14). Here is the mindblowingly complicated code I currently have:

Please Login or Register  to view this content.

This gives me the list as it appears on the sheet but doesn't get rid of the duplicates for me. Any help would be greatly appreciated. Many Thanks

or

Please Login or Register  to view this content.

No loop

Please Login or Register  to view this content.

Here's another..

Please Login or Register  to view this content.

Thanks All,

All work fine, I went with apo's one as I found easiest to comprehend (as an amateur VBA user!)

Is it possible to modify this so that the range isn't just column A but all the cells in column A that have an empty cell in the same row in a different column? I've attached a workbook example that I've thrown together. In the example column L has a "1" along from all the items I don't want to appear in the box so I would be expecting the output 10-14 in the listbox.

I've tried modifying the code in here in different ways to define the range but I'm getting the 1004 error so I'm clearly missing the point!

Let me know if I should be starting a new thread for this. Thanks

That works great thanks, the main sheet I'm working on has ~ 2300 rows of which this should be picking up between 10 and 15 at a time and it seems to be going OK. Hopefully it continues this way, many thanks for your help!