Sub Simulacion()

Dim i As Long
Dim c As Long
  
'Iteraciones para simulación
c = Range("D5")
For i = 1 To c
'Escritura de iteraciones
Range("D6") = i
Next i

MsgBox "Simulación TOC generada exitosamente!", vbInformation, "Simulación"
End Sub