Fernando MG respondió:
Una opción sería con utilizar este código: Sub copia() cond1 = Application.WorksheetFunction.CountIfs(Range("rangoestatus"), "corriendo") cond2 = Application.WorksheetFunction.CountIfs(Range("rangoestatus"), "caminado") proceso = cond1 + cond2 End Sub