问下在VBA中如何自动填充计算列

问下在VBA中怎么自动填充计算列
表中有 隐藏列E 使E列的值等于A列和B列的平均值  
代码运行的时候自动给E列除标题行 E1 从E2开始的所有行 自动计算填充值。
[解决办法]

Sub Macro1()
    Range("E1").FormulaR1C1 = "=(RC[-4]+RC[-3])/2"
    Range("E1").Select
    Selection.AutoFill Destination:=Range("E1:E3"), Type:=xlFillDefault
End Sub