Did you consider using:

    ActiveSheet.VPageBreaks(1).Location = ActiveSheet.Range("F1")