Macro to insert page break after paste

[AdRock]

hello

I am trying to edit a macro i recorded which inserts a page break immediately after what is pasted in the worksheet.

The thing is that I don't know how many rows are going to be inserted becuase they change but i need a page break right after on the next availablw row.

This is the code that got recorded

Sub Macro2()
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=18
    Range("A248").Select
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
End Sub

Is this quite simple as looking at how it's done it, looks impossible?

 

[VoG]

Try

ActiveSheet.HPageBreaks.Add Before:=Range("A" & Rows.Count).End(xlUp).Offset(1)