Выбор диаппазона при помощи кода

[komar73]

Есть маленький код который позволяет выбрать последнюю запись в столбце А.

r = Cells(Rows.Count, "A").End(xlUp).Row
Range("a" & r).Select

Подскажите как мне выбрать диаппазон с последней записи и на три ячейки ниже.
У меня сейчас 10 записей, я пишу

Range("A10:A13").Select

и все работает но после добавления записей естественно нет
Потом я написал вот так:

r = Cells(Rows.Count, "A").End(xlUp).Row
Range("a" & r:"a" & r+3).Select

Подскажите где здесь ошибка

[SAS888]

Можно чуть проще:

Range([A1], Cells(Rows.Count, "A").End(xlUp).Offset(3)).Select

Но, скорее всего, можно обойтись и без выделения диапазона.

[komar73]

Я наверное не совсем точно сформулировал вопрос. Короче у меня есть Столбец А с данными и В с формулами. Мне нужно написать код чтобы формула в столбце В копировалась вниз до последней записи столбца А
Я сделал так

'r = Cells(Rows.Count, "A").End(xlUp).Row
'f = Cells(Rows.Count, "B").End(xlUp).Row
'Selection.AutoFill Destination:=Range("b" & f:"b" & r), Type:=xlFillDefault
'Range("b" & f:"b" & r).Select

Но высвечивается синтаксическая ошибка.
Ниже образец правда без кода

[SAS888]

Пример во вложении.

[komar73]

Огромное спасибо!!! Я просто в шоке как можно все компактно сделать если знать свое дело