Macro Help Required - Run script until no more data in column. Possible loop needed?

Hi,

I have a simple Button that when pressed will run the following command:

Sub Button2_Click()
'
' Button2_Click Macro
'

'
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "=""'""&RC[-1]&""',"""
    Range("B2").Select
    Selection.AutoFill Destination:=Range("B2:B53"), Type:=xlFillDefault
    Range("B2:B53").Select
    ActiveWindow.SmallScroll Down:=-30
End Sub

The problem I am facing is, the list is column A will vary in length ever day, therfore I do not want to have to edit my code daily. Can someone help me re-code this so it stops when it gets to the last cell that contains data in column A. I know I can simple change Range("B:B") but I am then left with date that needs to be deleted.
Any help would be much appreciated.

Dave