[Tasos]

Καλησπέρα!

Νίκο δοκίμασε:

Option Explicit

Sub CountCities()
    Dim rng As Range
    Set rng = Sheet1.Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row)
    rng.FormulaR1C1 = "=IF(RC[2]=1,COUNTIF(DYO!C,RC[1]),"""")"
    rng.Value = rng.Value
End Sub

Καλή συνέχεια!

Τάσος