Rows("6:6").Select
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell