VBA/Excel/Access/Word/Excel/AutoFill
Available Constants for the Type Argument of the AutoFill Method
<source lang="vb">
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
</source>