Sub SumCols()
Dim rCells As Range
'Clear all current page breaks
ActiveSheet.DisplayAutomaticPageBreaks = False
'Loop through all cells in the range("F2:F<x>)
For Each rCells In Range("F2", Range("F65536").End(xlUp))
If rCells <> rCells.Offset(-1, 0) Then 'Change in value
'Add page break
rCells.EntireRow.PageBreak = xlPageBreakManual
End If
Next rCells
End Sub
To use it Push Alt+F11, go to Insert>Module and paste it in. Push Alt+Q then Alt+F8, then select the macro name and Click "Run". Just make sure you are on the correct sheet.