Замена слов в массиве на заданные случайно

Sub SravnenieMassivov()
 
    Dim rRange_1 As Variant, rRange_2 As Variant
    Dim x As Variant, y As Variant
    Dim lRndNumber As Long
    Dim lStart As Long, lEnd As Long
    
    lStart = 2
    lEnd = 10
    lRndNumber = Int((lEnd - lStart + 1) * Rnd) + lStart
    
    Set rRange_1 = Range("A1:T1")
    
    Set rRange_2 = Range("A2:A10")
   
    'Просматриваем слова во втором массиве и ищем
    'совпадение в первом массиве.
    For Each x In rRange_2
        For Each y In rRange_1
            If x.Value = y.Value Then
                y.Value = rRange_2.Cells(lRndNumber, "A").Value
            End If
        Next y
    Next x
    
End Sub

Sub SravnenieMassivov()
 
    Dim rRange_1 As Variant, rRange_2 As Variant
    Dim x As Variant, y As Variant
    Dim lRndNumber As Long
    Dim lStart As Long, lEnd As Long
    Dim bArray(2 To 10) As Boolean
    
    lStart = 2
    lEnd = 10
    
    'Чтобы при каждом запуске процедуры генерировалась
    'новая последовательность чисел.
    Randomize
    
    Set rRange_1 = Range("A1:T1")
    
    Set rRange_2 = Range("A2:A10")
   
    'Просматриваем слова во втором массиве и ищем
    'совпадение в первом массиве.
    For Each x In rRange_2
        For Each y In rRange_1
        
            If x.Value = y.Value Then
            
                'Генерируем случайное число, пока не будет
                'сгенерировано, которое ещё не генерировалось.
                Do
                    lRndNumber = Int((lEnd - lStart + 1) * Rnd) + lStart
                    
                    'Просматриваем, было ли уже сгенерировано такое число.
                    If bArray(lRndNumber) = False Then
                        'Если ещё не было сгенерировано, то делаем
                        'пометку в массиве у элемента, у которого
                        'порядковый номер совпадает со случайным числом.
                        bArray(lRndNumber) = True
                        'Выходим из цикла.
                        Exit Do
                    End If
                    
                Loop
            
                y.Value = rRange_2.Cells(lRndNumber, "A").Value
                
            End If
            
        Next y
    Next x
    
End Sub