melhorando macro para criação de jogos lotofácil no excel

Pessoal, eu faço bolões de loterias e buscando na web encontrei uma macro que faz jogos no excel,
ela funciona muito bem, porém eu queria incrementar, queria que ela
buscasse em uma tabela a quantidade de vezes que cada um dos numeros
devem aparecer por coluna como referencia para montar os jogos, vou anexar uma planilha como exemplo.
a macro para criar os jogos segue abaixo:

Sub jogo(Linha)
Randomize Timer

a = 15
C = 25
s = 0
For i = 1 To 25
If Rnd <= a / C Then
a = a - 1
s = s + 1
Cells(Linha, s) = i
End If
C = C - 1
Next i
End Sub
Private Sub CommandButton1_Click()
[A:O].Value = Empty
Numjogos = InputBox("quantidade de jogos", "Lotofácil")
For i = 1 To Numjogos
jogo i
Next i
End Sub

Desde já agradeço a todos que puderem ajudar