I was not suggesting merged cells, but are correct it splits into two pages.Silly program.
You can provide a macro but it has to be started by the user; there is not a Before_Print event to help, so it needs a button or similar to do the hide, unhide, print. e.g.
    w = Columns("B:B").ColumnWidth
    Columns("B:B").ColumnWidth = 0
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Columns("B:B").ColumnWidth = w