Conta se doppia condizione

Buongiorno,
impostati i dati come nel file Esempio, ho fatto una macro che conti per ogni città il numero di occorrenze del mese.
Questa macro non funziona, perchè secondo voi?
Nella colonna C del file c'è il risultato atteso, mentre nella colonna D c'è il risultato della macro:

Sub prova()
ur = Worksheets("Foglio1").Cells(Rows.Count, 1).End(xlUp).Row
j = 2
For i = 2 To ur
Worksheets("Foglio1").Select
Set rangecitta = Worksheets("Foglio1").Range("A:A")
Set rangedata = Worksheets("Foglio1").Range("B:B")
citta = Worksheets("Foglio1").Range("A" & i)
data = Worksheets("Foglio1").Range("A" & i)
conta = Application.CountIfs(rangecitta, citta, rangedata, Month(data))
Range("D" & i).Value = conta
Next i
End Sub

Scusa aikon in colonna D non c'è nulla.

Puoi ripostare il file con il risultato corretto inserito a mano?

Io ho provato la macro ma mi va in errore.

Ho rimesso l'allegato con la colonna D

Ciao aikon

ma perché vuoi ricorrere al VBA quando puoi fare tutto con le formule?

In colonna E2 metti questa formula



e trascini in basso.

In F2 metti questa



e trascini in basso.

Mi serve il codice vba perchè questa procedura è all'interno di un processo un po' più ampio.
La procedura da te suggerita è possibile implementarla in vba?
Grazie.

Ciao Aikon

Mi riesce difficile capire perché, anche in presenza di un progetto VBA, non possa usare le formule comunque in colonna D da D2 in poi inserisci la formula (eventualmente nascondi la colonna D)



ed esegui questa macro