Random numbers without repeat in each column and row

I need to generate random numbers range between 1 to 8 without repeat. When user generate the numbers again, the numbers should not repeat in same row. 4 columns needed.

Example:
2 8 4 7
4 6 3 1
3 5 2 6
7 1 6 2
1 7 5 8
6 3 1 5
5 4 8 3
8 2 7 4

I tried with some formulas but I am not very good.

See attached.

No code TAGS available

Sub rnd_martix()

Dim rndx(8, 8) As Integer
Dim used(8) As Integer

For j = 1 To 8
used(j) = 0
n = j
For i = 1 To 8
rndx(i, j) = n
n = n + 1
If n > 8 Then n = 1
Next i
Next j

For i = 1 To 4
n = WorksheetFunction.RandBetween(1, 8)
Do Until used(n) = 0
n = WorksheetFunction.RandBetween(1, 8)
Loop
used(n) = 1
For j = 1 To 8
Cells(j, i) = rndx(j, n)
Next j
Next i
End Sub

thank you very much