Contar. Si. Conjunto(rango hasta la ultima fila llena, criterio, y el otro conjunto igual condición

Necesito una aplicación en visual donde escriba la función contar. Si. Conjunto((o2):(o2).end(xldown),c2,)(p2):(p2).end(xldown),43)