Hi,
I have created some subtotals in some columns of data which for example are the dates, names, and amounts of invoices.
The code I used is:
Range(Range("C1"), Range("C1").End(xlDown)).Select
Selection.CurrentRegion.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(3)
This is working...