VBA - How to insert page break in every blank row

[SilentRomance]

Hello guys,
I want to find all blank row in my sheet and insert page break in that blank rows.
How do I do this in VBA

Check this Image,

Thanks in advance.

 

[Michael M]

Try

Sub MM1()
Dim r As Long
For r = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
    If Cells(r, 1) = "" Then ActiveSheet.HPageBreaks.Add Before:=Cells(r, 1)
Next r
End Sub

 

[SilentRomance]

Try

Sub MM1()
Dim r As Long
For r = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
    If Cells(r, 1) = "" Then ActiveSheet.HPageBreaks.Add Before:=Cells(r, 1)
Next r
End Sub

many thanks bro

 

[Michael M]

Glad to help...