VBA/Excel/Access/Word/Excel/AutoFill

Available Constants for the Type Argument of the AutoFill Method

 
Constant        Value         
xlFillDays      5         
xlFillFormats   3         
xlFillSeries    2         
xlFillWeekdays  6         
xlGrowthTrend   10         
xlFillCopy      1         
xlFillDefault   (default)     0         
xlFillMonths    7         
xlFillValues    4         
xlFillYears     8         
xlLinearTrend   9       

Sub autoFill()
    Range("F2:F13").autoFill Destination:=Range("F2:I13")
End Sub
"R1C1 Style References
Sub r1c1()
    Dim I As Integer
    For I = 0 To 11
            Cells(I + 2, "F").FormulaR1C1 = "=Average(R" & (I + 2) + (I * 8) _
                  & "C1" & ":R" & (I + 6) + (I * 8) & "C1" & ")"
    Next I
End Sub