... ActiveSheet.UsedRange.Cells.SpecialCells(xlCellTypeLastCell).Activate ... ActiveCell.Offset(rowOffset:=1, columnOffset:=1).Activate ... ActiveSheet.VPageBreaks.Add Before:=ActiveCell ...