das Benutzen der Variable x ist in Deinem Fall eigentlich ein Umweg, da sie nicht benötigt wird. Einfacher geht es, wenn Du den Zähler direkt in die Schleife einbaust:
For y = 1 To lngZeilen
If table.Cells(y, 1).Value Like "frankreic*" Or table.Cells(y, 1).Value Like "Frankreic*" And Not table.Cells(y, 2) = "" Then
Range("C2").Value = Range("C2").Value + 1
End If
Next y
Die Zelle C2 zählt jetzt bei jedem Durchlauf, in dem die Bedingungen zutrafen, um 1 hoch. Probier es einfach mal aus.
Um darüber hinaus erkennen zu können, in welchen Zeilen die Bedingungen zutreffen, kannst Du es noch erweitern:
For y = 1 To lngZeilen
If table.Cells(y, 1).Value Like "frankreic*" Or table.Cells(y, 1).Value Like "Frankreic*" And Not table.Cells(y, 2) = "" Then
Cells(y, 4) = 1
Range("C2").Value = Range("C2").Value + 1
End If
Next y
Dieser Code schreibt nun zusätzlich in Spalte 4 der entsprechenden Zeile den Wert "1". Diesen kannst Du dann ja zum Beispiel noch über "Format --> Bedingte Formatierung" herausstellen und rot färben oder so.