I have a column of data containing 100 cells, every 5th cell is used for
comments.

I can concatenate them into one summary cell with a line return as follows:

=Concatenate(A1,Char(10),A5,Char(10),Etc.......)

But is there a way that i can skip blanks and if duplicates, only put the
first occurence in?
i.e. if data like this:

Shiny
<Empty
Furry
Shiny
Furry
Glossy
<Empty
Matt

My concatenate would return:

Shiny
Furry
Glossy
Matt

Skipping the blank cells, only listing the first occurence of a repeat and
not doing the line return if the cell is blank.

i.e. returning...

Shiny

Furry
Gloss

Matt

Any help would be very much appreciated, im using XP sp2 and office 2000 pro.
I would prefer a written statement for the cell, but VB code i can run off a
macro is fine also.

Thanks

Brett