I'm using the following code to number each cell in column A if there is a
value in column B. I need help setting my variable 1 when it start.

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

Loop

End Sub

Thanks for any help