将输入值分配给范围vba时发生溢出错误

Question

我确定这确实很简单，但是我已经检查了所有有关堆栈溢出的建议问题，并搜索了其他vba论坛，但我一生都找不到任何有效的方法。我的代码很短，因此已经包含了整个内容。我只想将输入到AcctNum的输入值分配给A2：ALastRow范围内的每个单元格，但是在赋值行（如下所示）时出现溢出错误。

Sub PrepBogsOrderDetail()

    Dim AcctNum As Variant
    Dim LastRow As Double

    LastRow = Cells(Rows.Count, 1).End(xlUp).Row

    AcctNum = InputBox("Please enter the SoldTo number")

    Columns("A:A").Insert Shift:=xlToRight
    Range("A1").Value = "Account Number"

    *'Overflow error happens at this line*
    Range("A2:A" & LastRow).Value = AcctNum

End Sub