How to program fill down without specific range in a Macro

[sa02000]

I have the following work around to replace the manual "fill down" (using fill handle). Is there a better way of doing this?

Range("B2").Select
Selection.Copy
ActiveCell.Offset(0, -1).Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Select
Range(Selection, Range("B2")).Select
ActiveSheet.Paste

Thank you,
Jay