Ошибка переполнения при назначении входного значения диапазону 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