Función Contar.Si Copy