How to number cells by content?

Question

Visual Basic

There is a table of the form

It is necessary, in accordance with the contents of cell B, to number cells C. (It is the condition "contains", not "equals" that is of interest.) I see this approximately as below, but I have no experience with VBA, so something goes otherwise, the macro is not executed, and no errors are output.

Sub Numer()

Dim i As Integer
Dim SHEET0 As String
Dim Novoal As String
Dim Stav As String
Dim Chr As String
SHEET0 = "16.03.15"

Novoal = "Новоалександровский "
Stav = "Ставрополь"
Chr = "Черкесск"

For i = 2 To SHEET0_STR
    Application.StatusBar = "Ждите" & Str(i)
    REGNUMBER = Val(Worksheets(SHEET0).Cells(i, "С").Value)

  If (Worksheets(SHEET1).Cells(i, "B").Value Like Novoal) Then
            Worksheets(SHEET0).Cells(i, "С").Value = 1
  End If
    If (Worksheets(SHEET0).Cells(i, "B").Value Like Stav) Then
             Worksheets(SHEET0).Cells(i, "С").Value = 2
  End If
      If (Worksheets(SHEET0).Cells(i, "B").Value Like Chr) Then
            Worksheets(SHEET0).Cells(i, "С").Value = 3
  End If
  Next i
End Sub