Subtotal Challenge??

[zakasnak]

I send out purchase orders via excel every day. I have upwards of 30-50 on any given day. I would like a macro that would subtotal each page before being sent out. The header row is the same on every page (row 8) At each change in "PO#" (column A), use function "sum", add subtotal to "Total" (column L).

Also, I would like the page to freeze rows 1-7 at column A (the header on each page is a matter of copying, selecting all the pages & inserting, so is not such a big deal to do. I would insert this before running the macro...)

 

[Mala]

something like this?

Sub SubTot()
    For Each ws In Worksheets
        ws.Activate
        Set DatRng = Range("A8", Range("A8").End(xlDown).Offset(0, 11))
        DatRng.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(12), _
                Replace:=True, PageBreaks:=False, SummaryBelowData:=True
        ws.PrintOut
        Set DatRng = Range("A8", Range("A8").End(xlDown).Offset(0, 11))
        DatRng.RemoveSubtotal
    Next ws
End Sub

 

[zakasnak]

That worked great. I made some changes, but I appreciate your time to get me started on the right foot!!