Создание чисел случайным образом в двух столбцах для достижения желаемой корреляции

Question

Я написал код, который создает 500 чисел от 1 до 5 случайным образом в двух столбцах.Я хочу, чтобы корреляция между этими двумя столбцами была больше 0,35, но этого никогда не произойдет.Как исправить этот код?

Sub rand()
    Dim p, x, y As Integer
    Dim Rang As Range

    Do
        For p = 1 To 2
            For y = 2 To 500
                 If p <= 2 And y <= 500 Then
                     Set Rang = Cells(y, p)
                     Rang = Application.WorksheetFunction.RandBetween(1, 5)
                 End If
            Next
        Next

        Correl = WorksheetFunction.Correl(Range(Cells(2, 1), Cells(500, 1)), Range(Cells(2, 2), Cells(500, 2)))
    Loop Until Correl > 0.3
End Sub