p> ActiveWindow.SmallScroll Down: = 9
Range ("C107"). Select
Selection.AutoFill Destination: = Range ("C107: H107"), Type: = xlFillDefault
Range ("C107: H107"). Select
Range ("C108"). Select
ActiveCell.FormulaR1C1 = "= R [-91] C [2]"
Range ("C108"). Select
Selection.AutoFill Destination: = Range ("C108: H108"), Type: = xlFillDefault
Range ("C108: H108"). Select
Range ("C109"). Select
ActiveCell.FormulaR1C1 = "= R [-91] C [2]"
Range ("C110"). Select
ActiveWindow.SmallScroll Down: = 6
Range ("C109"). Select
Selection.AutoFill Destination: = Range ("C109: H109"), Type: = xlFillDefault
Range ("C109: H109"). Select
Range ("C110"). Select
ActiveCell.FormulaR1C1 = "= R [-91] C [2]"
Range ("C111"). Select
ActiveWindow.SmallScroll Down: = 9
Range ("C110"). Select
Selection.AutoFill Destination: = Range ("C110: H110"), Type: = xlFillDefault
Range ("C110: H110"). Select
Range ("C111"). Select
ActiveCell.FormulaR1C1 = "= R [-91] C [2]"
Range ("C112"). Select
ActiveWindow.SmallScroll Down: = 6
Range ("C111"). Select
Selection.AutoFill Destination: = Range ("C111: H111"), Type: = xlFillDefault
Range ("C111: H111"). Select
Range ("C106"). Select
ActiveCell.FormulaR1C1 = "= (R [-1] C-R118C11)/R116C11"
Range ("C106"). Select
Selection.AutoFill Destination: = Range ("C106: H106"), Type: = xlFillDefault
Range ("C106: H106"). Select
Range ("B107"). Select
ActiveCell.FormulaR1C1 = "= (RC [-1]-R119C11)/R117C11"
Range ("B107"). Select
Selection.AutoFill Destination: = Range ("B107: B111"), Type: = xlFillDefault
Range ("B107: B111"). Select
Range ("I107"). Select
ActiveCell.FormulaR1C1 = _ p>
Range ("I107"). Select
ActiveCell.FormulaR1C1 = _ p>
Range ("I107"). Select
ActiveCell.FormulaR1C1 = _ p> "= R106C3 * RC [-6] + R106C4 * RC [-5] + R106C5 * RC [-4] + R106C6 * RC [-3] + R106C7 * RC [-2] + R106C8 * RC [ -1] "
Range ("I107"). Select
Selection.AutoFill Destination: = Range ("I107: I111"), Type: = xlFillDefault
Range ("I107: I111"). Select
Range ("B107"). Select
ActiveCell.FormulaR1C1 = "" p> Range ("C112"). Select
ActiveCell.FormulaR1C1 = "" p> Range ("B108"). Select
Selection.Copy
Range ("B107"). Select
ActiveSheet.Paste
Range ("B109"). Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "= (RC [-1]-R119C11)/R117C11"
Range ("C112"). Select
ActiveCell.FormulaR1C1 = _ p> "= R107C2 * R [-5] C + R108C2 * R [-4] C + R109C2 * R [-3] C + R110C2 * R [-2] C + R111C2 * R [-1] C" ;
Range ("C113"). Select
ActiveWindow.SmallScroll Down: = ...
