Autofill Column

[Crocdundee]

I would like to autofill a column with the active cell selected with offset to the left column.
The active cell may not always be B2, could be B2 or whatever, but the offset range will always be in the left column
Any help on this will be appreciated.
-----------------------------------------
A B
1 Canterbury 23/02/11
2 Canterbury
3 Canterbury
4 Canterbury
5 Canterbury

 

[VoG]

Try

Sub FillDown()
Dim LR As Long
LR = ActiveCell.Offset(, -1).End(xlDown).Row
ActiveCell.AutoFill Destination:=ActiveCell.Resize(LR - ActiveCell.Row + 1)
End Sub

 

[Crocdundee]

Thank you for the help.
I am always amazed at the extent that help is extended
I have tried the code and it works, however I did not make myself clear enough.

I really need to copy instead of auto populating
so , in B2: B whatever
data should read
23/02/11
23/02/11

etc etc

Thanks
Graham

 

[VoG]

Try

Sub FillDown()
Dim LR As Long
LR = ActiveCell.Offset(, -1).End(xlDown).Row
ActiveCell.AutoFill Destination:=ActiveCell.Resize(LR - ActiveCell.Row + 1), Type:=xlFillCopy
End Sub

 

[Crocdundee]

I found the answer by replacing autofill with copy.
Again Thanks for your help

Graham