i've used something like this

Set rng = Range("i4:j" & lastrow)

For Each cell In rng
If UCase(Left(cell.Formula, 11)) = "=SUBTOTAL(9" then
' then put your copy code here
next
end if



--


Gary


"Bill" wrote in message ...
Hi,

I would be much appreciated if you can help me how to set the code. I
know how to use Subtotal and filter 2 for subtotal and copy to other
worksheet by manually. Is there a way to set macro automatic to hit to
copy to other worksheet with subtotal and grand-total only without detail
records.

YOur help much appreciated.
Thanks