If everything fits on one sheet you can do the following, and it scales the width of the active data region to always fit within the margins of a page width.
Code:
    With ActiveSheet.PageSetup
        .FitToPagesWide = 1
        .FitToPagesTall = False
    End With