Заполнение ячеек - VBA (49119)

Формулировка задачи:

Здравия, форум! Нужна помощь в экселе, я в бейсике полный ноль, так что заранее извините. Вобщем нужен макрос, который будет заполнять выделенный диапазон ячеек данными из списка ячеек, находящихся на другом листе, заполнение должно быть в рандомном порядке.

Нашел вот такой пример

                    Листинг программы
                
Range("B3:J20").Select
Selection.Copy
Worksheets("Лист2").Paste Destination:=Worksheets("Лист2").Range("B3:J20")

но тут все прописано в коде, а мне надо чтоб вставка происходила там, где я мышей выделил диапазон и плюс выбор из копируемого диапазона должен быть рандомным

Решение задачи: «Заполнение ячеек»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Mer()
Dim v(), i&, n&, w&, c As Range, d As Range
  On Error Resume Next
  Set d = Application.InputBox("Выберите диапазон данных мышкой" & vbLf & _
    "или введите адрес", Type:=8)
  If Err Then Exit Sub
  v = d.Value
  n = d.Count
  w = UBound(v, 2)
  For Each c In Selection
    i = Int(Rnd * n)
    c.Value = v(i \ w + 1, i Mod w + 1)
  Next
End Sub