Drag the VPageBreaks all the way to the right but nothing is happening

Question

Application.ActiveWindow.View = xlPageBreakPreview

Set Workbook = Application.ActiveWorkbook

For i = 1 To LastRow
    If Workbook.Sheets(1).Cells(i, "A").Val