Получить значение случайно выбранной ячейки

For i = 3 To n
   If i Mod (2) = 1 Then
      Cells(i, 4).Value = Cells(i - 1, 3).Value
           Or 'понимаю, что так нельзя
      Cells(i, 4).Value = Cells(i - 1, 4).Value
 
   End If
Next i

For i = 3 To n
   If i Mod (2) = 1 Then
   Cells(i, 4).Value = Cells(i - 1, CInt(Rnd + 3)).Value
   End If
Next i

     For i = 3 To n
           If i Mod (4) = 0 Then
         Cells(n + i, 3).Value = Cells(3 + i, 4).Value
           End If
       Next i
       For i = 3 To n + 10
           If i Mod (4) = 0 Then
         Cells(n + i, 4).Value = Cells(5 + i, 4).Value
           End If
        Next i

Sub pole1()
  Dim a As Range
  Dim n As Integer
  Dim num As Double
  Dim i As Integer
  Dim k() As Integer
  Dim m As Double
  Dim s As Integer
   Set a = Selection
     n = a.Rows.Count
 
      ReDim k(1 To n + 10)
         Cells(1, 1).Value = "Èãðîêè"
         Cells(1, 2).Value = "¹ èãðû"
         Cells(1, 3).Value = "Èãðîê ¹1"
         Cells(1, 4).Value = "Èãðîê ¹2"
      For i = 1 To n + 2
         Cells(i + 1, 1).Value = a(i)
      Next i
      For i = 1 To (n - 1)
         Cells(i + i, 2).Value = i
      Next i
      For i = 1 To n
           If i Mod (2) = 1 Then
         Cells(i + 1, 3).Value = a(i)
            End If
      Next i
      For i = 1 To n
           If i Mod (2) = 0 Then
         Cells(i, 4).Value = a(i)
           End If
      Next i
      For i = 2 To n + 8
           If i Mod (2) = 0 Then
         Cells(i + 1, 3).Value = "Ïîáåäèòåëü:"
           End If
      Next i
 
       For i = 3 To n
           If i Mod (2) = 1 Then
         Cells(i, 4).Value = Cells(i - 1, CInt(Rnd + 3)).Value
           End If
       Next i
 
         Cells(n + 2, 3).Value = Cells(3, 4).Value
         Cells(n + 2, 4).Value = Cells(5, 4).Value
       For i = 3 To n
           If i Mod (4) = 0 Then
         Cells(n + i, 3).Value = Cells(3 + i, 4).Value
           End If
       Next i
       For i = 3 To n + 10
           If i Mod (4) = 0 Then
         Cells(n + i, 4).Value = Cells(5 + i, 4).Value
           End If
        Next i
 
End Sub