Заполнение уникальных значений в массиве VBA из Excel

Кто-нибудь может дать мне код VBA, который будет брать диапазон (строку или столбец) из листа Excel и заполнять список / массив уникальными значениями, т.е.:

table
table
chair
table
stool
stool
stool
chair

при запуске макроса создается массив, например:

fur[0]=table
fur[1]=chair
fur[2]=stool