Print title + Dynamic range until empty row

Hello everybody,

I'm doing a colleague a favor by looking into a VBA formula to make her reporting tasks a little easier, poor her, but I need help myself now.

this is how her tabsheet is set up:

CVDV_tab.jpg

this is how the end result should look like in the printer tray:

CVDV_00_AZ.jpg

CVDV_00_AR.jpg

some facts:

- the values in column B ("APE", "APF", ...) are the 'seperators'. I tried to define a loop where the module selects the data until it finds an empty row, but there are 2 empty rows for each value in column B (e.g. for APE = row 7 & row 11) and it got me confused.
- the number of rows that need to be printed on a seperate page are dynamic: e.g. for B5 = "APE", one day it's 2 persons, the other day it's more or less than 2.
- the title in cell D2 should show on each page
- the number of columns doesn't change

Could use the help, thanks in advance!

(How to) Upload a Workbook directly to the Forum
(please do not post pictures or links to worksheets)

• Click Advanced (next to quick post),
• Scroll down until you see "Manage Attachments",
• Click that then select "add files" (top right corner).
• Click "Select Files" find your file, click "open" click "upload"
• Once the upload is completed the file name will appear below the input boxes in this window.
• Click "Done" at bottom right to close the Attachment Manager.
• Click "Submit Reply"

Hi JVAII,

The following macro should do what I think you want.

Please Login or Register  to view this content.