Private Sub CommandButton1_Click()

    Call Перемешать

End Sub

Public Sub Перемешать()

Dim Значёк(1 To 9) As Byte

Dim i, Индекс_1, Индекс_2, Обменник, Было, Стало As Byte

Randomize

For i = 1 To 9

    Значёк(i) = i

Next i

For i = 1 To 9

    Индекс_1 = Int(9 * Rnd) + 1

    Индекс_2 = Int(9 * Rnd) + 1

    Обменник = Значёк(Индекс_1)

    Значёк(Индекс_1) = Значёк(Индекс_2)

    Значёк(Индекс_2) = Обменник

Next i

For строка = 2 To 10

    For колонка = 2 To 10

        Было = Cells(строка, колонка).Value

        If Было > 0 Then

            Стало = Значёк(Было)

            Cells(колонка, строка + 10).Value = Стало

        Else

        End If

    Next колонка

Next строка

End Sub