My first column is "Acct Type" and the second column is "Customer Name".

Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(4, 5, 6,
7, _
8, 9), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Range("A1:I1").Select
ActiveWorkbook.Save

How do I keep the "Acct Type" label in column one from repeating? (no pivot
table, please!)

Cash Customer 1
Customer 2
Customer 3
Cash Sub Total #####