How to fill a column of cells with consecutive numbers ?

Not sure if this helps you, but take a look and see

Sub MRay()
Dim x As Long
x = 1
Range("A2").Select
Do Until x = 20
ActiveCell.Value = "String0" & x
x = x + 1
ActiveCell.Offset(1).Select
Loop
End Sub