此程序中的重复代码怎样简化？

凌飞云天

Sub m8各科考评()


Range("E3").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/RC[-2]"
    Selection.AutoFill Destination:=ActiveCell.Range("A1:A18")

    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]*110"
    Selection.AutoFill Destination:=ActiveCell.Range("A1:A18")

    ActiveCell.Offset(0, 2).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]/RC[-5]"
    Selection.AutoFill Destination:=ActiveCell.Range("A1:A18")

    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]*100"
    Selection.AutoFill Destination:=ActiveCell.Range("A1:A18")

    ActiveCell.Offset(0, 2).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]/RC[-8]"
    Selection.AutoFill Destination:=ActiveCell.Range("A1:A18")

    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]*50"
    Selection.AutoFill Destination:=ActiveCell.Range("A1:A18")

    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=(RC[-11]-RC[-10])"
Selection.AutoFill Destination:=ActiveCell.Range("A1:A18")

ActiveCell.Offset(0, 1).Range("A1").Select
     ActiveCell.FormulaR1C1 = "=(RC[-1]/RC[-12])"
   Selection.NumberFormatLocal = "0.00_ "
    Selection.AutoFill Destination:=ActiveCell.Range("A1:A18")

    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=RC[-9]+RC[-6]+RC[-3]-RC[-1]*50"
    Selection.AutoFill Destination:=ActiveCell.Range("A1:A18")

ActiveCell.Offset(25, -10).Range("A1").Select

Next
end  sub
此程序中， Selection.AutoFill Destination:=ActiveCell.Range("A1:A18")重复出现九次，如何简化？

lss001

Sub m8()
    a1 = Array(1, 2, 1, 2, 1, 1, 1, 1)
    a2 = Array("=RC[-1]*110", "=RC[-1]/RC[-5]", _
    "=RC[-1]*100", "=RC[-1]/RC[-8]", "=RC[-1]*50", "=(RC[-11]-RC[-10])", _
    "=(RC[-1]/RC[-12])", "=RC[-9]+RC[-6]+RC[-3]-RC[-1]*50")
    For i = 0 To 8
    If i = 0 Then
        Range("E3").Select
        ActiveCell.FormulaR1C1 = "=RC[-1]/RC[-2]"
    Else
        ActiveCell.Offset(0, a1(i - 1)).Range("A1").Select
        ActiveCell.FormulaR1C1 = a2(i - 1)
    End If
        Selection.AutoFill Destination:=ActiveCell.Range("A1:A18")
    Next
        ActiveCell.Offset(25, -10).Range("A1").Select
End Sub