Removes subtotals from a list.
expression.RemoveSubtotal
expression Required. An expression that returns a Range object.
Example
This example removes subtotals from the range A1:G37 on Sheet1. The example should be run on a list that has subtotals.
Worksheets("Sheet1").Range("A1:G37").RemoveSubtotal