Gerador de estatistica

Sub AleVBATEST()

Dim IsUnique As Boolean
Dim iNum As Integer
Dim r As Long
Dim c As Long

For r = 1 To 10

    ReDim Arr(1)
   

    iNum = WorksheetFunction.RandBetween(1, 99)
    Range("A1").Cells(r, 1).Value = iNum
        Arr(0) = iNum
        Arr(1) = fRNum(iNum)
       
 
    For i = 2 To 10
        IsUnique = False
        Do While IsUnique = False
            iNum = WorksheetFunction.RandBetween(1, 99)
                For x = 0 To UBound(Arr)
                    If iNum = Arr(x) Then
                        IsUnique = False
                        Exit For
                        Else
                        IsUnique = True
                    End If
                Next x
        Loop
               
    ReDim Preserve Arr(UBound(Arr) + 2)
    Arr(UBound(Arr) - 1) = iNum
    Arr(UBound(Arr)) = fRNum(iNum)
    Range("A1").Cells(r, i).Value = iNum

    Next i

Next r

End Sub

Function fRNum(iNum As Integer) As Integer

If iNum < 10 Then
    fRNum = iNum * 10
    Else
    fRNum = (Right(iNum, 1) & Left(iNum, 1))
End If

End Function