In diesem Beispiel wird über der Zelle F25 ein horizontaler und links neben ihr ein vertikaler Seitenwechsel eingefügt.
With Worksheets(1) .HPageBreaks.Add .Range("F25") .VPageBreaks.Add .Range("F25") End With