Auto Fill Macro

[vijanand1279]

Rows Col A Col B
1 Name Department
2 A 1
3 B 1
4 C 1
5 D 1
6 E 1

Sub Macro2()
    Selection.AutoFill Destination:=Range("B2:B6")
    Range("B2:B6").Select
End Sub

I recorded the above macro to AUTO fill the values in B2 till the last available row in column A. But the next time I may get more or less rows in column A. Above macro keeps the range unchanged and I am looking for a macro that will dynamically change the range based on the rows in Column A. Please help

Regards,
Vijay

[davesexcel]

Here are some threads on autofill
http://www.excelforum.com/search.php?searchid=2773248