[okshef]

Код:

Sub Sub1()
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("A1:A2").Select
    Selection.AutoFill Destination:=Range("A1:A20"), Type:=xlFillDefault
    Range("A1").Select
End Sub

Макрос, заполняющий цифровым рядом ячейки А1 - А20
Создание макроса - Excel - Microsoft Office Online

запуска ворд вверху вижу сообщение что они отключены »

Кстати, если такое сообщение выходит, есть повод задуматься - нет ли заражения. А вообще, макросы лучше запускать только зная их содержание или то, что источник макроса надежен на 100%.