Boa Noite jau288,

Estou na dúvida sobre o que você necessita.

Você quer gerar uma tabela inteiramente nova de números, sortear (marcar em amarelo) alguns números (quantos? ) entre 1 e 77 ou dado os valores da tabela sortear seis(?) números?

No que brevemente entendi, montei duas macros. Uma no módulo 1 gera uma tabela aleatória de números entre 0 e 100 na "Planilha 2".
A macro no módulo 3, marca até 6 números de 1 a 77 que estão presente na tabela da "Planilha 1".

Veja se ajuda no seu caso.

Caso não atenda sua necessidade, explique mais sobre o que você necessita.

att,

Ola Bruno, e tipo a planilha 1 (você me envio) só que quanto ao "sorteio" tem de ser 06 por vez que aciona toda vez, e ele apresenta outros "sorteios" tipo com 3, 4 , 5 e teria que ser somente 6.
Como fazer esta correção?

Obrigado pela atenção...

Veja se ajuda.

Sub GeraNúmeros()
 Dim vt As New Collection, i As Long, r As Long, n As Range
  [B5:I9].Interior.Color = xlNone
  While vt.Count < 6
    r = (77 - 1) * Rnd() + 1
    If Application.CountIf([B5:I9], r) > 0 Then
     On Error Resume Next
     vt.Add r, CStr(r)
     On Error GoTo 0
    End If
  Wend
     For i = 1 To vt.Count
       Set n = [B5:I9].Find(vt(i), after:=[B5], _
        SearchOrder:=xlByRows, LookAt:=xlWhole)
       n.Interior.ColorIndex = 6
     Next i
End Sub

Ola Osvaldo, muito obrigado pela colaboração e ajuda , ficou como eu queria.

Obs:
Obrigado a Bruno e Osvaldo pela atenção.