ciao

Per creare una sola funzioni potresti fare così:

codice:
Function contanumero(stato As Boolean, campo as strinng)
If stato = True Then
    For i = 1 To 10000
    If Range(campo & i) = 1 Then
        conta = conta + 1
    End If
    Next
    lbl_filtro = conta
End If

' poi la richiami cosi

call contanumero(true, "lettera") ' dove lettera sta per laettera della cella interessata.
non ho testato il codice, ma dovrebbe funzionare.

ciao