Private Sub CommandButton1_Click()
    Dim arSl, Diap As Range
    Application.ScreenUpdating = 0
    Range("B40:M199").ClearContents
    Randomize
    r_ = 33
    r0_ = 40
    c0_ = 2
    c1_ = Cells(r_, Columns.Count).End(xlToLeft).Column
    If c1_ <= c0_ Then Exit Sub
    nr_ = Cells(r_, c0_)
    nc_ = c1_ - c0_
    ReDim arSl(1 To nr_, 1 To 1)
    For i = 1 To nc_
        x_ = Cells(r_, c0_ + i)
        For j = 1 To nr_
            arSl(j, 1) = Int(Rnd() * x_) + 1
        Next j
        Cells(r0_, c0_ + i - 1).Resize(nr_, 1).Value = arSl
        Cells(r0_, c0_ + i - 1).Resize(nr_, 1).Sort (Cells(r0_, c0_ + i - 1).Resize(nr_, 1))
    Next i
    Application.ScreenUpdating = 1
End Sub