Range("A1:H1").Select
ActiveWindow.SmallScroll Down:=33
Range("A48:K50").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-9
Range("L48").Select
ActiveSheet.Paste
Range("L50").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=IF(sheet1R[-48]C[1]<>"""",sheet1R[-48]C[-8]/OFFSET(sheet1R1C[-8],+Sheet1!R19C,0)-1,"""")"
Range("L50").Select
Selection.AutoFill Destination:=Range("L50:M50"), Type:=xlFillDefault
Range("L50:M50").Select
Range("M50").Select
ActiveCell.FormulaR1C1 = _
"=IF(sheet1!R[-48]C[1]<>"""",sheet1R[-48]C[-8]/OFFSET(sheet1R1C[-8],+Sheet1!R19C[-1],0)-1,"""")"
Range("M51").Select
ActiveWindow.SmallScroll Down:=-3
Range("A1:H31").Select
Range("H31").Activate
Selection.Copy
ActiveWindow.SmallScroll Down:=-15
Range("L1").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=9
Range("L19").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=COUNT(Sheet1!R[-17]C[-9]:R[981]C[-9])"
Range("L31").Select
ActiveCell.FormulaR1C1 = "=R[-12]C"
Range("L32").Select