How can I access the first row of the 2nd page of a specific sheet?

[acombest]

Title

 

[FDibbins]

More detail please

 

[igold]

ActiveSheet.HPageBreaks(1).Location.row

 

[acombest]

ActiveSheet.HPageBreaks(1).Location.row

I want the entire first row on page 2 of sheet "Order Form" to be the same as the entire first row on page 1 of sheet order form.

 

[FDibbins]

Maybe...
=sheet2!A1
copied across
?

 

[igold]

I want the entire first row on page 2 of sheet "Order Form" to be the same as the entire first row on page 1 of sheet order form.

That would have been good information in your original post, as opposed to your brevity!

 

[acombest]

That would have been good information in your original post, as opposed to your brevity!

Yes, sorry I thought I could figure it out with a little information.

ActiveSheet.HPageBreaks(1).Location.Row gives me a subscript out of range error.

 

[igold]

Assuming that the row that you want copied is Row 1 of the Order Form, does this do what you want?

Sub CopytoPageBreak()


    Dim i As Long
    Dim loc As Object
    Dim wsOF As Worksheet: Set wsOF = Worksheets("Order Form")
    
    Set loc = wsOF.HPageBreaks(1).Location
     i = loc.Row
    wsOF.Rows("1:1").Copy Rows(i)


End Sub