Форум по VBA и MS Office

Сделал с помощью УФ, но необходимо написать именно макрос, который делает следующее.
Вводим в ячейку А1 число, запускаем макрос и в столбце В заполняется красным цветом столько строк начиная с первой, сколько было указано в ячейке А1.

Sub Макрос()
       
    ' Очистка столбца B от предыдущего запуска макроса.
    Columns("B").Interior.Pattern = xlNone
    ' Закраска столбца B.
    Range("B1").Resize(Range("A1").Value).Interior.Color = 255

End Sub

Вы мастер VBA! Спасибо огромное!