E : J arasını sıralı almak

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Örnekte de görüleceği üzere, B sütununda 1 - 6 arası rastgele sayılar geliyor. hizalarındaki E : J hücrelerine ise, yine 1 - 6 arası ve fakat birbirinden farklı, B hücresindeki adet kadar, sayılar da geliyor.
E - J arasındaki sayıları sıralı olarak nasıl alırım? Yardımcı olursanız sevinirim.
Saygılarımla

 

[ÖmerFaruk]

Sub Yeni()
    Range("B4:B13").ClearContents
    Range("E4:J13").ClearContents
    For i = 1 To 10
        Randomize
        Range("B" & i + 3) = Int((6 * Rnd) + 1)
        For x = 1 To Range("B" & i + 3)
            Cells(i + 3, x + 4) = x
        Next x
    Next i
End Sub

 

[Tevfik_Kursun]

Sayın Ömer Faruk,
İlginize teşekkür ederim.
İyi çalışmalar