Filter then page break macro

[oliviar]

Hi guys,
I want to filter column A to exclude blanks, then put a page break before every row that is visible.
NO idea where to start.

Thanks so much.

 

[oliviar]

I solved it!
However it only works because in column A there are mostly blanks, and I only want breaks when the cell is not blank. I haven't been able to solve it only for visible cells, only non-blank cells. Oh well.

Sub Loopingpagebreaks()
Sheets("sheet2").Select
Range("A65536").End(xlUp).Select
On Error Resume Next
    Do
    If IsEmpty(ActiveCell) = False Then
 
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
    ActiveCell.Offset(-1, 0).Select
End If
ActiveCell.Offset(-1, 0).Select
    Loop Until IsEmpty(ActiveCell.Offset(1, 0)) = False
On Error GoTo 0
End Sub