¿Cómo puedo resolver esta simulación de excel en visual basic?

hola, me llamo luis.

Corrí la simulación poniendo esto en visual basic de excel:

Sub Cálculos()
Dim Valor As Double
Dim Aleatorio As Double
Dim i, n, Sim As Integer
Sim = 1
Do Until Sim > 1
i = 0
n = 8
Range("F4").Value = Sim
Do Until i = 2194
Aleatorio = Rnd()
Range("D2").Value = Aleatorio
Valor = Range("B3").Value
Range("F" & n).Value = Valor
i = i + 1
n = n + 1
Loop
Columns("F:F").Select
Selection.Insert Shift:=xlToRight
Selection.ColumnWidth = 14#
Sim = Sim + 1
Loop
End Sub

Corrí la simulación con unos cambios en:

Do Until Sim > 1000
Do Until i = 20196

Lo que quiero lograr es que se haga una simulación de 1000 columnas con 20196 pero hasta la columna LO (322 columnas) con el renglón 20203 o sea:

columna LO
renglón 20203

Me marca en visual basic que se ha producido un error (error "13") en la formula:
Valor=Range ("B3")Value

¿como le hago para que corra la simulación con la información que requiero?

Gracias de antemano.