Sub Macro2()
'
' Macro2 Macro
'
'
Range("O4").Select
ActiveCell.FormulaR1C1 = "=INT(SUMIF(C[-14],RC[-6],C[-13])/5)"
Range("Q4").Select
ActiveCell.FormulaR1C1 = "=SUMIF(C[-16],RC[-8],C[-15])"
Range("O4").Select
Selection.AutoFill Destination:=Range("O4:O8"), Type:=xlFillDefault
Range("Q4").Select
Selection.AutoFill Destination:=Range("Q4:Q8"), Type:=xlFillDefault
Range("A1").Select
End Sub