Range("C9").CurrentRegion.Columns(1). _
SpecialCells(xlVisible).entirerow.copy _

Worksheets(3).Range("A1").PasteSpecial xlValues

--
Regards,
Tom Ogilvy

"Kim" wrote in message
...
Hi all,

I would like to create a macro that selects only cells containing
information from subtotalled worksheet,then copy visible cells only, and
paste them into another worksheet.

I have searched the existing Q&A's but can't find what I'm looking for.

Thanks in advance.