Sub 수식입력()

    Range("F6").FormulaR1C1 = "=SUM(RC[-2]:R[8]C[-2])"
    Range("I6").FormulaR1C1 = "=AVERAGEIF(R6C3:R14C3, RC[-1], R6C4:R14C4)"
    Range("I6").AutoFill Destination:=Range("I6:I10")

End Sub