Sub FillRange3()
Dim StartVal As Long
Dim NumToFill As Long
Dim CellCount As Long
StartVal = 2
NumToFill = 5
For CellCount = 1 To NumToFill
ActiveCell.offset(CellCount - 1, 0) = StartVal + CellCount - 1
Next CellCount
End Sub