Add Method (HPageBreaks Collection) Example
This example adds a horizontal page break above cell F25 and adds a vertical page break to the left of this cell.
With Worksheets(1)
.HPageBreaks.Add .Range("F25")
.VPageBreaks.Add .Range("F25")
End With