Hi Ram,

Does this do what you want?


Sub count1()
Dim i As Integer
i = 1
Do Until Range("B" & i) = ""
Range("a" & i) = i
i = i + 1
Loop

End Sub

Ken Johnson