El costo de cada vuelo tiene una distribución normal con media USD 1000 y desviación estándar USD 600, truncada a valores positivos
Function TruncatedNormal(mu As Double, sigma As Double) As Double
Dim x As Double
x = WorksheetFunction.Norm_Inv(Rnd(), mu, sigma)
TruncatedNormal = Application.WorksheetFunction.Max(x, 0)
End Function