Use the AutoFill function by specifying the destination range

 
Sub autoFillRange()
    Cells(2, "B").autoFill Destination:=Range("B2:B10")
End Sub

1.	Select entire sheet
2.	Set cell value with For Loop
3.	Use row and column index to reference cell
4.	Cells(Rows.Count, "A").End(xlUp).Select
5.	looping through a worksheet range using a For/Next loop.
6.	Cells.Find: Get Real Last Cell
7.	Get cell value
8.	Sum Cells Based on the Interior Color
9.	Entering a value in the next empty cell
10.	Using Replace Programmatically to Set the Correct Range
11.	Calling CurrentRegion to Inspect a List's Useful Characteristics

Use the AutoFill function by specifying the destination range : Cells « Excel « VBA / Excel / Access / Word