Paste Only Visible Cells, Comma Delimited

Hello,

I am working on a file that lists a series of product codes, some of which are grouped together. I am trying to put together a macro that will allow you to select a range of codes within a column and have those codes pasted only the visible cells into a Word document, with each code separated by a comma. So far, I have been able to accomplish most of the task - I can have the selected cells sent over to word, comma-delimited, but I cannot get the macro to operate on visible cells only.

I have attached a sample file with code.

From the sample file, my desired result would be:
"Green,Blue,Yellow,Orange,Red,Black,Brown"

However, while making modifications, I have only been able to get:
"Green,Blue,Yellow,Orange,Red,Red,Red,Red,Red,Black,Brown", and
"Green,Blue,Yellow,Orange,Red"

Please let me know if you have any suggestions.

Thanks!