Sub Macro1()
'
' Macro1 Macro
'
Dim v(26) As String
Dim c(200) As String
Dim i As Integer
Dim k As Integer
Dim g As Integer


For i = 0 To 25
    v(i) = activesheet.cells(i + 1, 2)

Next
For k = 0 To 200
    c(k) = activesheet.cells(k + 1, 1)

Next
For i = 0 To 25
    g = 0
    For k = 0 To 200
        If (c(k) = v(i)) Then
            g = g + 1
        End If
    Next
    activesheet.cells(i + 1, 3) = g
Next



'
End Sub