Code to fill down 2 cells to last row

Hi.
How do I select 2 cells (i.e. Range("BA5:BA6").select) and have a code fill this down an excel sheet to the last row.
Here's what I have but it doesn't work:

Dim LR as long
         LR = Range("A" & Rows.Count).End(xlUp).Row
         Range(("BA5").address &":"& cells(lr+1).address),type:=xlfilldefault

Any help is appreciated