For-Next loop

A For-Next example with a Step

 

Sub FillRange()

Dim Count As Long

For Count = 1 To 100 Step 2

ActiveCell.Offset(Count - 1, 0) = Rnd

Next Count

End Sub