copy subtotals only, is this possible

Yes, it is possible manually or with VBA. Taking it from the top...

Manually, here is one of a few ways:

Just for convenience before anything, right-click on your worksheet menu bar, left click on Customize, click on the Commands tab, choose the Edit category, and towards the bottom of that list is a 4-black-square looking icon named "Select Visible Cells". Use your left mouse button to drag that icon up to your toolbar. Click the Close button to return to the worksheet.

Run your subtotal, and highlight the collapsed portion you want to copy. Click on that "Select Visible Cells" icon. Now click Edit > Copy, then go to whatever sheet/range you want to copy it to, and select Edit > Paste.

Using VBA you could add something to your macro like:

ActiveSheet.Range("A4:B24").SpecialCells(xlCellTypeVisible).Copy _
Destination:=Sheets("Sheet3").Range("C37")

Hope this helps.

Tom Urtis

thanks tom, worked perfect

Thanks