Boa noite,

Fiz um exemplo para 1700 linhas, começando da linha 2, supondo que há cabeçalho na primeira linha e que os números estejam nas colunas A a T:

Sub GerarAleatorios()
    Dim i As Long, j As Long, n As Long
    
    For i = 2 To 1700
        j = 21
        Do
            n = Int(Rnd * 100)
            If WorksheetFunction.CountIf(Range(Cells(i, 1), Cells(i, j)), n) > 0 Then
                j = j - 1
            Else
                Cells(i, j).Value = n
            End If
            j = j + 1
        Loop While j < 51
    Next
    MsgBox "Fim de Execução da Macro"
End Sub

Veja se atende.

Abraço

Leandrof_s,

Bom dia!

Movi seu tópico para o sub fórum adequado: VBA & Macros. O sub fórum que você utilizou é somente para apresentações de novos integrantes do fórum.