Develop a loop based on a tables characteristics

[Luthius]

I need assistance to develop a loop based on these 2 tables below.
The first row contains the values that will repeat along the table.

For the first table each value will repeat 04 times.
For The second table the values will repeat 05 times.

Table01

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

A

B

-

D

E

F

-

H

I

-

K

L

-

N

-

-

B

C

D

-

F

-

H

I

J

-

L

M

N

-

-

-

C

D

-

F

G

-

I

J

K

L

M

-

O

A

-

-

D

E

-

G

-

I

J

K

L

-

N

O

A

B

C

-

E

-

G

H

-

-

K

-

M

N

O

A

B

C

-

E

F

G

H

-

J

-

-

M

-

O

<tbody>
</tbody>

table02

P	Q	R	S	T	U
P	-	R	S	T	U
-	Q	R	S	T	U
P	Q	-	S	T	U
P	Q	R	-	T	U
P	Q	R	S	-	U
P	Q	R	S	T	-

<tbody>
</tbody>

The result will be the values from Table01 and Table02. 15 distinct values in each row.

Results

A

B

D

E

F

H

I

K

L

N

P

R

S

T

U

B

C

D

F

H

I

J

L

M

N

Q

R

S

T

U

C

D

F

G

I

J

K

L

M

O

P

Q

S

T

U

A

D

E

G

I

J

K

L

N

O

P

Q

R

T

U

A

B

C

E

G

H

K

M

N

O

P

Q

R

S

U

A

B

C

E

F

G

H

J

M

O

P

Q

R

S

T

<tbody>
</tbody>

 

[Luthius]

Thanks for your support.
To simplify:
- 1st loop will always repeat 04 times the value of a total of 06 interations. The values starts from Column "A1" to column "O1".
- 2nd loop will always repeat 05 times the value of a total of 06 interations. The values starts from Column "R1" to column "X1".

Ps.: I just need the combination of both loops. Meaning a table with 15 columns and 06 rows where there is no repetition of values between the columns of the same row.
Example:
B C D F H I J L M N Q R S T U
C D F G I J K L M O P Q S T U

 

[Luthius]

Guys, how can I change the code below instead fill the cells by leaping the rows the code do the same but leaping by columns in a total of 10 rows.

<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; box-sizing: inherit; white-space: inherit;">Dim x As Long, y As Long, z As Long

FillColumns()
With Sheet1 'Change accordingly
For y = 1 To 15
z = 0
Do While z < 4
x = Int((7 - 2 + 1) * Rnd + 2)
If .Cells(x, y) <> .Cells(1, y) Then
.Cells(x, y) = .Cells(1, y)
z = z + 1
End If
Loop
Next y
End With
End Sub</code>