Help with VBA code to assign numbers based on cell values?

[Coyotex3]

Hello guys, trying to figure out how to go from this:

Book3
	A	B
1	Apple
2	Apple
3	Apple
4	Apple
5	Apple
6	Orange
7	Orange
8	Orange
9	Orange
10	Mango
11	Mango
12	Mango
13	Mango
14	Mango
15	Mango
16	Mango
17	Mango
18	Mango
19	Mango
20	Grape
21	Grape
22	Grape
23	Grape
24	Grape
25	Grape
Sheet1

To this:

Book3
	A	B
1	Apple	1
2	Apple	1
3	Apple	1
4	Apple	1
5	Apple	1
6	Orange	2
7	Orange	2
8	Orange	2
9	Orange	2
10	Mango	3
11	Mango	3
12	Mango	3
13	Mango	3
14	Mango	3
15	Mango	3
16	Mango	3
17	Mango	3
18	Mango	3
19	Mango	3
20	Grape	4
21	Grape	4
22	Grape	4
23	Grape	4
24	Grape	4
25	Grape	4
26
Sheet1

I essentially want Excel to assign a number value to each different item starting with 1.

Note: The amount of items changes each time.

 

[Legacy 143009]

Sub myFunction()
  Dim lRow As Integer
  lRow = Cells(Rows.Count, 1).End(xlUp).Row
  Cells(1, 2).Value = 1
  For i = 2 To lRow
    If  Cells(i, 1).Value = Cells(i-1, 1).Value Then
      Cells(i,2).Value = Cells(i-1,2).Value
    Else
      Cells(i, 2).Value = Cells(i-1, 2).Value + 1
    End If
  Next
End Sub

 

[Micron]

If B1 contained 1, a formula would work too if that will help. Something like
=IF(A2=A1,B1,B1+1)
dragged down from B2

 

[JoeMo]

Another way:

Sub Coyotex3()
Range("B1").Value = 1
With Range("B2:B" & Cells(Rows.Count, "A").End(xlUp).Row)
.Formula = "=IF(A2=A1,B1,B1+1)"
.Value = .Value
End With
End Sub

 

[Coyotex3]

Thank you All for your suggestions . They work.

 

[Legacy 143009]

Thanks for the feedback