大家好，我最近写了一段VBA代码用来生成随机数并分配到指定单元格，但遇到了一个头疼的问题：

当numCells（也就是ActiveSheet.Range("W2").Value）的值大于8时（比如9、10、15这类数值），代码运行完全正常；可一旦numCells小于9（比如8、7、6、5、4这些情况），就会弹出400错误，实在搞不懂哪里出问题了，麻烦各位帮忙排查一下！

下面是我的代码：

Sub Generate_Random_Value()
Dim total As Double
Dim numCells As Integer
Dim minValue As Double
Dim maxValue As Double
Dim rng As Range
Dim cell As Range
Dim i As Integer

' Define parameters
total = ActiveSheet.Range("T2").Value
numCells = ActiveSheet.Range("W2").Value
minValue = ActiveSheet.Range("U2").Value
maxValue = ActiveSheet.Range("V2").Value

' Clear existing values in the range
Set rng = ActiveSheet.Range("E9:E" & numCells)
rng.ClearContents

' Generate and distribute random numbers
Randomize ' Initialize the random number generator
For i = 1 To numCells - 1
    Set cell = rng.Cells(i, 1)
    cell.Value = WorksheetFunction.RandBetween(minValue, maxValu...

备注：内容来源于stack exchange，提问作者Prabhat Vishwas