I think I misunderstood you

Let me know

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Ron de Bruin" wrote in message ...
Hi Dejan

Add one dim line

Dim Lrow2 As Long

and before the columns.autofit line
Note I asume that all cell in column A have data, maube you must chnage the A to another column ?

Lrow2 = .Cells(Rows.Count, "A").End(xlUp).Row
.Rows(Lrow2).Copy WSNew.Range("A" & WSNew.UsedRange.Rows.Count + 2)


--
Regards Ron de Bruin
http://www.rondebruin.nl


"windsor" wrote in message
...

Hi Ron,

Thank you for this awesome macro! Very fast much better than mine.
One question I can't seem to get it to copy the subtotal to each of
sheets the subtotal is at the bottom of the table and is preceeded by a
blank line.

Thanks for your help again.

Dejan


--
windsor
------------------------------------------------------------------------
windsor's Profile: http://www.excelforum.com/member.php...o&userid=27849
View this thread: http://www.excelforum.com/showthread...hreadid=473581