Sorts, page breaks and subtotals, oh my...

Question

Hello to anyone reading this! I'm having difficulty writing a macro and was hoping one of you would be generous enough to help me out.&nbsp;What I'm trying to do:&nbsp;I am trying to import data to a templated excel sheet and execute a macro that will sort by two columns (A = Item description, H = Tag type), Page break after a change in column H and if there is no change (not all item descriptions have a tag type entry) a break after Column A, and finally a sub total for every break on column H and a Total for every break on column A (using sums from Columns B and O). If possible I'd like to auto adjust for column width and wrap. Please not that the ranges are dynamic, however the column headers will remain in the same order.&nbsp;Any help is appreciated!!!&nbsp;What I have so far:&nbsp;Sub SubTotals()&nbsp;&nbsp;&nbsp; ActiveSheet.Copy After:=Worksheets(Worksheets.Count)&nbsp;&nbsp;&nbsp; Worksheets(Worksheets.Count).Name = "Totals"&nbsp;&nbsp;&nbsp; Worksheets("Totals").Activate&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim arow As Long&nbsp;&nbsp;&nbsp; Dim hrow As Long&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;arow = Cells.Find(What:="*", _&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; After:=Range("A1"), _&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LookAt:=xlPart, _&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LookIn:=xlFormulas, _&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SearchOrder:=xlByRows, _&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SearchDirection:=xlPrevious, _&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MatchCase:=False).Row&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;hrow = Cells.Find(What:="*", _&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; After:=Range("H1"), _&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LookAt:=xlPart, _&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LookIn:=xlFormulas, _&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SearchOrder:=xlByRows, _&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SearchDirection:=xlPrevious, _&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MatchCase:=False).Row&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Range("A2").Select&nbsp;&nbsp;&nbsp; ActiveWorkbook.Worksheets("Totals").Sort.SortFields.Clear&nbsp;&nbsp;&nbsp; ActiveWorkbook.Worksheets("Totals").Sort.SortFields.Add Key:=Range("A2:A" &amp; CStr(arow)) _&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal&nbsp;&nbsp;&nbsp; ActiveWorkbook.Worksheets("Totals").Sort.SortFields.Add Key:=Range("H2:H" &amp; CStr(hrow)) _&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal&nbsp;&nbsp;&nbsp; With ActiveWorkbook.Worksheets("Totals").Sort&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .SetRange Range("A1:O" &amp; CStr(arow))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Header = xlYes&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .MatchCase = False&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Orientation = xlTopToBottom&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .SortMethod = xlPinYin&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Apply&nbsp;&nbsp;&nbsp; End With&nbsp;&nbsp;&nbsp; Selection.Subtotal GroupBy:=8, Function:=xlSum, TotalList:=Array(2, 15), _&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Replace:=False, PageBreaks:=True, SummaryBelowData:=True&nbsp;&nbsp;&nbsp; Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(2, 15), _&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;Replace:=False, PageBreaks:=False, SummaryBelowData:=True&nbsp;&nbsp;&nbsp;End Sub&nbsp;This is not functioning as intended as it seems to not total B,O on the page break for column A changes. Ex. column A has the values Plant 1, Plant 2, Plant 3. Column H has values A,B,(Blank). The blanks in H seem to gum up the works and cause the pages to no longer break on changes in A. There are bound to be other issues, I know almost nothing about VBA.&nbsp;Example file included. (no macros included in file)

strider051 · Answer

I could for sure use a hand on this still if anyone has the inclination I would appreciate it!

Forum Discussion

Sorts, page breaks and subtotals, oh my...

1 Reply