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 #####

You don't. The only suggestion that I have is to use conditonal formatting
and if the cell value is = the cell above then format the text as white (or
the same colour as the background). The data is still there but it is
invisible to the untrained eye...

HTH

"SharonInGa" wrote:

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 #####