Ввод числа в поле с дальнейшим заполнением ячеек столбца "умной" этим числом - VBA

Формулировка задачи:

Здравствуйте, подскажите, пожалуйста макрос, который будет вызывать поле для ввода (или форму). В которой я должен буду ввести число, нажать "ОК" и это число заполнит все ячейки столбца умной таблицы (сколько бы их там не было). Таблица называется "Таблица1" столбец называется "Кол."

Решение задачи: «Ввод числа в поле с дальнейшим заполнением ячеек столбца "умной" этим числом»

textual
                            Листинг программы 
                        

                            Sub vvv()
Dim N
'------------------------------------------------------------------
Do
N = InputBox("Введите число", "ВВОД ДАННЫХ")
If Not IsEmpty(N) And IsNumeric(N) Then
   N = CDbl(N): Exit Do ' если к-во всегда целое можно N = CInt(N)
Else
MsgBox "Вы ввели не число"
End If
Loop
'------------------------------------------------------------------
Range("Таблица1[Кол.]") = N
End Sub
                        