Заполнение ячеек

Range("B3:J20").Select
Selection.Copy
Worksheets("Лист2").Paste Destination:=Worksheets("Лист2").Range("B3:J20")

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

c.Value = v(i \ w + 1, i Mod w + 1)

Mod

i \ w

If Not IsEmpty(d.Value) Then v = d.Value

  h = UBound(v)
  w = UBound(v, 2)
  For Each c In Selection
    c.Value = v(Int(Rnd * h) + 1, Int(Rnd * w) + 1)
  Next

Sub FillCellsAutoSurnam()
    Dim v(), i&, n&, w&, my&, h&, c As Range, d As Range
    On Error Resume Next
        With frmAskPwd
            .Show
            If .txtPwd.Text <> "321" Then Exit Sub
            .txtPwd.Text = ""
        End With
    Set d = Range("Таблица2[ФИО]")
    If Err Then Exit Sub
    v = d.Value
    n = d.Count
    h = UBound(v)
    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

Sub FillCellsAutoSurnam()
    Dim v(), i&, n&, w&, my&, h&, c As Range, d As Range
    On Error Resume Next
        With frmAskPwd
            .Show
            If .txtPwd.Text <> "321" Then Exit Sub
            .txtPwd.Text = ""
        End With
    Set d = Range("Таблица2[ФИО]")
    If Err Then Exit Sub
    v = d.Value
    n = d.Count
    h = UBound(v)
    w = UBound(v, 2)
     Randomize()
     For Each c In Selection
       i = Int(Rnd * n)
       c.Value = v(i \ w + 1, i Mod w + 1)
     Next
End Sub