Range.RemoveSubtotal (Excel)

Removes subtotals from a list.

Worksheets("Sheet1").Range("A1:G37").RemoveSubtotal