Vba code to drag inner page breaks to user defined position

[kelly mort]

Hello everyone.

I have this issue with me here and I need someone to help fix it for me.

I am using this code to set my page break at every 72 rows of data.

It is working cool but it creates an internal page break within my defined range.

I want to be able to drag that internal page break down to my defined range. But I am not able to do it.

Can someone help fix that for me?

Thanks so much in advance

With sheet1
.PageSetup.PrintArea = .Range(“B4:J” & lr)

r = 76

For i = 4 To lr Step 72

.HPageBreaks.Add Before:=.Range(“B” & lr)

r = r + 72 
Next i 

End with