Автозаполнение макросом

[RGZZ]

Часто для выполнения автозаполнения приходиться дважды щелкать по нижнему правому углу ячейки с формулой. Подумал записать макрос, но, оказывается Excel каким-то образом сам определяет range, хотя я думал, что есть какая-то встроенная функция. Хотелось, чтобы на горячей клавише висел макрос, работающий во всех конкретных случаях (как при нажатии дважды).

Вот, что получилось у меня и в чем загвоздка.

Sub avtozapolnenie()
'
' avtozapolnenie Macro
'
' Keyboard Shortcut: Ctrl+g
'
Selection.AutoFill Destination:=Range("M159:M170")
Range("M159:M170").Select
End Sub

В записанно макросе range фиксируется, и его нельзя будет применять во всех случаях.

А пример в приложении.
sample4.rar

[EducatedFool]

Попробуйте такой макрос:

Sub test()
    On Error Resume Next
    ActiveCell.AutoFill Range(ActiveCell, ActiveCell(1, 0).EntireColumn.Cells(Rows.Count).End(xlUp)(1, 2))
End Sub

Я не совсем понимаю встроенную в Excel логику определения размеров диапазона для автозаполнения, но, вроде бы, мой макрос работает так, как надо.
Проверяйте.

[RGZZ]

Да, макрос работает как надо. Спасибо!!