Option Explicit

Sub numcells()
Dim i As Integer
Dim x As Range

i = Range("C2").Value

For Each x In Range("B2:B100")
    If x <> "" Then
        x.Offset(0, -1) = i
        i = i + 1
    End If
Next
End Sub