Dynamic print range

I am attempting to create a simple print range that for a report, and the report range changes each time I run it. Seems a simple Macro, but I haven't been able to figure it out. Here is what I've done:

The range starts at a specific cell but the end of the report varies.


Range("A5").Select
ActiveCell.Range("A1:B1").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.PageSetup.PrintArea = "$A$5:B99"

I need the Print Area to be dynamic based on the last row of data. What am I missing?

Thx

Thank you Solus!!