macro to set page break before empty cell

How about something like this ?

Sub Test()
Dim cell As Range
For Each cell In Range("K14:K" & Range("K65536").End(xlUp).Row)
If cell.Value = "" Then HPageBreaks.Add Before:=cell
Next cell
End Sub

Please click the * below if this helps

Hi, jdvdh001,

imaybe it should read ActiveSheet.HPageBreaks.Add Before:=cell.

Sub Test_2()
Dim cell As Range
On Error Resume Next
For Each cell In Range("K14:K" & Range("K65536").End(xlUp).Row).SpecialCells(xlCellTypeBlanks)
   ActiveSheet.HPageBreaks.Add Before:=cell
Next cell
End Sub

Ciao,
Holger