Insert Page Break After Every Item VBA

[ilibera]

Hi everybody. I am trying to write VBA to insert Page Breaks after every Pivot Table item in column A. The Field Settings are not working for some reason and page breaks end up all over the place. I have the code below to insert a page break every time the cell value changes but I don't want to fill the item in every cell, want to have the titles distributed like they are in the screenshot (which is an excerpt from a very long table).

I also don't want the code to start until row 4 when the items begin. If anyone could help me that'd be great! I've been researching stuff to solve this problem for a while but can't seem to be able to put the right pieces together (I'm very new at VBA)

Please Login or Register  to view this content.

ExcelHelp (2).PNG

[KOKOSEK]

This:

Please Login or Register  to view this content.

gives like this:

Przechwytywanie.JPG

If I found you need correctly.

[ilibera]

This (almost) perfect thank you! How would i change this slightly to make it start AFTER the first project?

[jeffreybrown]

Well this doesn't actually work from top to bottom, rather, it's bottom to top.

Please Login or Register  to view this content.

This goes from row 13 and works backwards to row 5. Try doing this...

Please Login or Register  to view this content.

[ilibera]

Thanks everyone! Wish I had asked about this a week ago, y'all rock.

[jeffreybrown]

You are very welcome and thanks for the feedback. We are happy to help.