There is a workbook example on this page
http://www.rondebruin.nl/copy5.htm
But first add a empty row between row 5 and 6 so you have a one line header
Make the row height 0 so it looks like you have a 6 row header
Then use
Set rng = ws1.Range("A7").CurrentRegion '<<< Change
--
Regards Ron de Bruin
http://www.rondebruin.nl
wrote in message
ups.com...
Help!!!
I came accross several post pertaining to autofiltering and extracting
to different sheets, However, What I need to do is this:
Having a File with 6 lin Header
(Company Name, Project Name, Document Name, Date, then Column Labels)
I have the rep number on Column "A" starting at "A7"
I have to compile the records of each rep to one file (not sheet) then
get the total for each sheet at the bottom.
Any help will be greatly appreciated.
Niegel