Queria saber se alguém me pode ajudar.

Vou fazer uma prova de karts, e vou fazer 4 corridas, estou a sortear os karts utilizando macro a baixo. Agora preciso de uma formula, identifique numa tabela o nome do piloto e o karts que já dou, para não repetir o mesmo. 

Código Macro

Sub GerarNúmerosAleatóriosSemRepetir()

   'Suponha que os números estão no intervalo B1:G10

   Const nMínimo As Long = 1

   Const nMáximo As Long = 20

   Const strDestino As String = "B1:B20"


   Dim n As Long

   Dim r As Long

   Dim col As Collection


   Randomize Timer


   Set col = New Collection

   On Error Resume Next

       Do

           n = Int(Rnd * nMáximo) + nMínimo

           col.Add n, CStr(n)

       Loop Until col.Count = nMáximo

       For n = 1 To nMáximo

           Range(strDestino).Cells(n) = col(n)

       Next n

   On Error GoTo 0


End Sub

_____________________________________
Editado pela Moderação. Motivo: Procure utilizar o botão Código (< >) sempre que for inserir código VBA ou Fórmulas.