With ActiveSheet.PageSetup
    .LeftHeader = ""
    .CenterHeader = ""
    ...
End With

Несмотря на то, что вы изменили только одну настройку в диалоговом окне "Параметры страницы", Excel сгенерировал код, задающий все параметры в этом диалоговом окне, поэтому не удивляйтесь количеству кода.
Строка, которая нас интересует, выглядит так:

.Orientation = xlLandscape

Отбросив "With", получим:

ActiveSheet.PageSetup.Orientation = xlLandscape

Это и есть то, что мы искали. Теперь мы знаем, как программно изменить ориентацию страницы Excel на альбомную.
Запись макросов во многих (но не во всех) случаях является лучшим способом изучить VBA. Даже несмотря на то, что в результате вы можете получить не совсем то, что ожидалось , автоматически сгенерированный код укажет правильное направление. Однако, не стоит забывать следующее:
1. Автоматически сгенерированный код может страдать отсутствием универсальности (например, он может быть связан с выделенными в данный момент элементами на листе и т.п.). В вышеприведённом примере, кстати, используется не произвольный, а активный в данный момент лист.
2. Таким способом удастся записать далеко не любые процедуры.
3. Автоматически сгенерированный код может изобиловать лишними деталями и быть неоптимальным с точки зрения производительности.
Примечание: если вы проводите подобные исследования, чтобы обратиться к Excel "извне" (с помощью OLE, к примеру), вам может потребоваться узнать значения встроенных констант Excel, которые в вашей среде программирования не объявлены. Например, чтобы узнать значение константы xlLandscape в вышеприведённом примере, вместо поиска по справке достаточно установить курсор на имени константы и нажать Ctrl+I.