Допилить макрос для экселя

[Kerajel]

Sub RandomWord()
Dim Row, RandomRow, i As Integer
Dim S1, S2 As Worksheet
Const Col1 As Integer = 1, Col2 As Integer = 1, SNum1 As Integer = 3, SNum2 As Integer = 2, Rws As Integer = 120
Set S1 = Sheets(SNum1)
Set S2 = Sheets(SNum2)
For i = 1 To 120
Randomize
RandomRow = Int((Rws * Rnd) + 1)
S1.Cells(i, Col1) = S2.Cells(RandomRow, Col2)
Next i
End Sub

Макрос берет 120 случайных ячеек из столбца А листа номер 2 и размещает их в случайном порядке в столбце А листа номер 3

Нужно дополнить макрос что бы случайные ячейки брались не только из столбца А листа 2 но и из столбца F листа 1

Заранее спасибо

[DiemonStar]

Sub RandomWord()
Set Src1 = Sheets(1).[F:F]
Set Src2 = Sheets(2).[A:A]
Set Dst = Sheets(3).[A:A]
Randomize
For I = 1 To 120
  J = Int((Src1.Rows.Count + Src2.Rows.Count) * Rnd()) + 1
  If J > Src1.Rows.Count Then
    Src2.Cells(J - Src1.Rows.Count, 1).Copy Dst.Cells(I, 1)
  Else
    Src1.Cells(J, 1).Copy Dst.Cells(I, 1)
  End If
Next I
End Sub

попробуйте так...

[Kerajel]

Что то не так, почему то все сгенерированные ячейки оказываются пустыми