Help: formula or VB code to implement voting system code

Hi,

I would like to write a formula or a VB-code to count the number of times that, e.g. team B vote "con" in proposals presented/writen by team A, but I can't. For this example, i tried this code in a VB module :

Sub count_votes()
lin = 2
col = 2
p = 0

Do While Cells(lin, 2) <> ""
If Cells(lin, 4) = "con" Then
    p = p + 1 And lin = lin + 1
Else
    lin = lin + 1
End If
Loop
Cells(4, 17) = p

End Sub

Of course, that I would like to implement the same system to all teams.

Please see the attachment.

Thanks for your help in advance.