Extend Macro to new range

[ferr]

Sheets("AR Trend").Select

Columns("C:C").Select

Range("C7").Activate

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Columns("D:D").Select

Range("D7").Activate

Selection.Copy

Columns("C:C").Select

Range("C7").Activate

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False

ActiveWindow.SmallScroll Down:=-42

Range("C3").Select

ActiveCell.FormulaR1C1 = "=+'Summary AR'!R79C5"

Range("C13").Select

ActiveCell.FormulaR1C1 = "=+R[-10]C"

Range("C4").Select

Sheets("Summary AR").Select

ActiveWindow.SmallScroll Down:=-24

Range("E65:E71").Select

Selection.Copy

Sheets("AR Trend").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("C14").Select

Sheets("Summary AR").Select

ActiveWindow.SmallScroll Down:=9

Range("E80:E86").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("AR Trend").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("D21:D43").Select

Application.CutCopyMode = False

Selection.Copy

Range("C21").Select

Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _

SkipBlanks:=False, Transpose:=False

Range("C3:C20").Select

Range("C20").Activate

Application.CutCopyMode = False

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

ActiveWindow.SmallScroll Down:=3

Sheets("Summary AR").Select

ActiveSheet.ChartObjects("Chart 5").Activate

ActiveChart.PlotArea.Select

ActiveWindow.SmallScroll Down:=-18

ActiveSheet.ChartObjects("Chart 4").Activate

ActiveChart.PlotArea.Select

Application.CutCopyMode = False

ActiveChart.SetSourceData Source:=Sheets("AR Trend").Range("B25:B32,C25:DS32" _

)

ActiveSheet.ChartObjects("Chart 5").Activate

ActiveChart.PlotArea.Select

ActiveChart.FullSeriesCollection(1).XValues = "='AR Trend'!$C$35:$DS$35"

ActiveChart.FullSeriesCollection(1).Values = "='AR Trend'!$C$36:$DS$36"

ActiveChart.FullSeriesCollection(2).Values = "='AR Trend'!$C$37:$DS$37"

ActiveChart.FullSeriesCollection(3).Values = "='AR Trend'!$C$38:$DS$38"

ActiveChart.FullSeriesCollection(4).Values = "='AR Trend'!$C$39:$DS$39"

ActiveChart.FullSeriesCollection(5).Values = "='AR Trend'!$C$40:$DS$40"

ActiveChart.FullSeriesCollection(6).Values = "='AR Trend'!$C$41:$DS$41"

ActiveChart.FullSeriesCollection(7).Values = "='AR Trend'!$C$43:$DS$43"

ActiveChart.FullSeriesCollection(7).XValues = "='AR Trend'!$C$35:$DS$35"

Range("AC29").Select

ActiveWindow.SmallScroll Down:=9

End Sub




looking to extend the macro above to cover the new range of cells added in AR Trend and Summary AR
SAO is the current Summary AR and 'to' is the current AR Trend.
Added 8 new rows for each grouping.. See Summary AR new and trend new