Ely, no seu arquivo há 9 quadrantes (e não 11) com 9 dezenas.
Fiz um código baseado em seu exemplo.
Verifique se o resultado é o esperado.

Código:

Sub Sorteio()

cont = 1
c = 2

Do While cont <= 3

lin = Application.WorksheetFunction.RandBetween(1, 9)
col = Application.WorksheetFunction.RandBetween(1, 9)
n = Application.WorksheetFunction.Index(Range("B3:J11"), lin, col)
If Application.WorksheetFunction.CountIf(Range("B13:D13"), n) = 0 Then
Cells(13, c) = n
cont = cont + 1
c = c + 1
End If
Loop

End Sub

Edson

Peço Desculpas pela informação errada Sim no arquivo que enviei tinham 9. 1São o total mas de fato só enviei 9 como exempo.

Caro. Talvez faltou eu dizer que preciso que a macro gere 3 números aleatórios SOMENTE tendo como base um quadrante individual
No caso para 11 quadrantes sei que deverei ter 11 botões então é um copiar e colar

Agora quando a macro gerar os 3 ou 4 números( na macro quero poder alterar isso. ela tem que olhar para 1 Quadrante ( o 1.o por exemplo) e ele tem essas dezenas 01 02 12 10 20 21 05 50 11

Preciso que a macro gere 3 números aleatório a parir dessas 9 dezenas. então seria tipo 12 20 11 ai aperto de novo e tenho 11 02 20 e se aperto de novo 05 50 10
Sei que de 9 dezenas é possível criar 84 combinações de 3 dezenas cada e 126 combinações com 4 dezenas cada

Mas não irei usar as 84 ou as 126 combinações. Somente algumas então ele só precisa gerar algumas combinações que eu pedir quando clicar no botão

OBS.: 1 Se for o caso pode ser s´´o uma macro com 3 ai eu copio ela e crio outra alterando no código para 4
2. Segue a planilha novamente com os conjuntos de 9 dezenas cada separados.

Edson

GRANDE EDSON

Nem precisará vc mexer na macro meu caro. Ela serviu sim
só fiz uns ajustes para o que preciso e deu super SUPER certo

Eis o seu código ajustado

Sub Sorteio()

cont = 1
c = 2

Do While cont <= 4

lin = Application.WorksheetFunction.RandBetween(1, 3)
col = Application.WorksheetFunction.RandBetween(1, 3)
n = Application.WorksheetFunction.Index(Range("B3:D5"), lin, col)
If Application.WorksheetFunction.CountIf(Range("B13:E13"), n) = 0 Then
Cells(13, c) = n
cont = cont + 1
c = c + 1
End If
Loop

End Sub

Edson.. sem palavras cara.. como vcs são feras... eu admiro demais as pessoas que ajudam aqui..Não sei se tem aqui mas seria legal ser possivei fazermos donativos como forma de recompensar tamanha ajuda que vcs prestam

MUITO MUITO OBRIGADO MESMO EDSON

GRANDE ABRAÇO