VB Code/Macro Printing with Page End pulled from Workbook

[S1L1SC]

This has been driving me up the wall all morning.

I have a worksheet that changes in length. There is a formula that calculates how many pages the sheet will be.

The also is a print button on the sheet that will print a coversheet "Sheets("Title")" and then it is supposed to print the data on the second sheet.

Below the code I have so far... I know I am missing something, but knowing very little about macros I just can't seem to figure it out.

Private Sub CommandButton1_Click()
    Application.Dialogs(xlDialogPrinterSetup).Show
    Application.ScreenUpdating = False
    Sheets("Title").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Report").Select
        .End = ActiveSheet.Range("B3").Value
        ActiveWindow.SelectedSheets.PrintOut From:=1, To:=.End
End Sub