Incomplete Range

Help --

I have been trying to create a Yearly Summary Sheet. I am not experienced in VB, but I was directed to this help page:
http://www.rondebruin.nl/copy2.htm

It sort of worked. I managed to modify it enough to get the headers that I wanted, to only count the visible pages, etc...

I cannot get it to read the correct range or all of the information.

I would like the information contained in all the pages in C2:J2 (and then C3:J3, etc...)

I would like the results to read:

A:1 -- Sheet Name
A:2 -- would be C2 from the other sheets

So on ....

Help me please.

Thank you, Stephanie