Allora, ho studiato e provato il codice. Funziona perfettamente!

codice:
Public Sub ScansionoProvince()
    Dim regione As Integer
    Dim riga As Integer, colonna As Integer
    Dim casella
    
    'chiedo l'id_regione
    regione = CInt(InputBox("Indica l'id_regione da estrarre"))
    
    'riga-colonna di output
    riga = 5: colonna = 1
        
    'Range([A5], [A5].End(xlDown)).ClearContents
    'Range(Cells(riga, colonna), Cells(riga, colonna).End(xlDown)).ClearContents
    Dim routput As Range: Set routput = Cells(riga, colonna)
    Range(routput, routput.End(xlDown)).ClearContents
    
    For Each casella In Range([Foglio2!E2], [Foglio2!E2].End(xlDown))
        If casella = regione Then
            Cells(riga, colonna) = casella.Offset(0, -2)
            riga = riga + 1
        End If
   
    Next
    
End Sub
Ho un problema. Volevo cancellare la zona di output. Come si seleziona la zona da A5 a fine colonne e fine righe?