Help with VBA to adjust page break over on column

Can we add something that would make the page break at the end of column C? and to set the page break to stop at the last filled row?

Sub FormatEDNotepad()
Rows("1:4").Delete
Columns("c").ColumnWidth = 125
Columns("d:l").Delete
Columns("b").ColumnWidth = 30
Columns("a").NumberFormat = "mm/dd/yy hh:mm:ss am/pm"
Columns("a").ColumnWidth = 25
Range("a1:IV65536").Select
    Selection.UnMerge
    Range("E9").Select
End Sub

Edit** Adjusted code to do page break, but when I save as a PDF I get hundreds of blank pages after my data.

Sub FormatEDNotepad()
Rows("1:4").Delete
Columns("c").ColumnWidth = 125
Columns("d:l").Delete
Columns("b").ColumnWidth = 30
Columns("a").NumberFormat = "mm/dd/yy hh:mm:ss am/pm"
Columns("a").ColumnWidth = 25
Range("a1:IV65536").Select
    Selection.UnMerge
    Range("E9").Select
ActiveWindow.View = xlPageBreakPreview
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
ActiveWindow.View = xlNormalView
End Sub