Select "OK" in sort warning box

[Muleskin57]

I'm running a large macro that reformats a data dump from an accounting system. It sorts several times and subtotals. During the running of the macro, I get an "error" message that Excel cannot determine the column header row. I have been hitting ENTER ("OK") and the macro moves on until the next instance of that command and I must hit ENTER or select "OK" for it to complete. How can I automate this macro completely, getting the offending stoppages to cease?

 

[Muleskin57]

yes, there is a header row, but I think it's outside the range. Perhaps if I expanded the range? It works so well now with the exception of the CR issue, I'm hesitant to change much.

 

[Fluff]

Try adding the two lines in blue as shown

Sheets("DATA DUMP").Select
Cells.Select
[COLOR=#0000ff]Application.DisplayAlerts = False[/COLOR]
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(6, 7, 14, _
15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Selection.Subtotal GroupBy:=3, Function:=xlSum, TotalList:=Array(6, 7, 14, _
15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True
Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(6, 7, 14, _
15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True
Range("A1").Select
Sheets("DATA DUMP (Exp)").Select
Cells.Select
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(6, 7, 14, _
15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Selection.Subtotal GroupBy:=3, Function:=xlSum, TotalList:=Array(6, 7, 14, _
15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True
Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(6, 7, 14, _
15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True
[COLOR=#0000ff]Application.DisplayAlerts = True[/COLOR]
Range("A1").Select
Sheets("DATA DUMP").Select

 

[Muleskin57]

You are a beautiful human being!

 

[Fluff]

You're welcome & thanks for the feedback