????????????????? Nao entendi.

Assim como os números da loteria, não conseguimos adivinhar a adaptação que se refere.
Se tentou utilizar a rotina conforme o endereço que passou, não irá conseguir, pois é uma pagina com tradução automatica, e rotinas VBA não podem/devem ser traduzidas.
A rotina original está em http://www.ozgrid.com/VBA/RandomNumbers.htm, experimente e informe a que adaptação deseja espera.

A sintaxe para utilização da UDF é --> RandLotto(1;60;5) sendo o primeiro menor, depois o maior e valor do agrupamento.

Tudo q peguei da pagina foi postado. Essa "nova" pagina eu ainda não tinha, agradeço a gentileza.