Macro checking if specific cell is empty every 5 rows, if so- set print area.

[karajakatak]

My dear programmers,

I 've got a worksheet.
1000 empty labels, one beneath other.
The height of one label counts 5 rows.
My macro fills them with data, so every first cell in a label has the date in it.
(A1=time
4 rows of data
A6=time
...
A11=time
...
A16=time
...
A21=time
...
etc.)

My request is a macro that checks every first cell from a label. If it finds first empty it stops checking and set the print area from A1 to last first cell with the time in it- but column E + 4 rows.

Could you make it? I barely understand how to create a function my own but i can read and understand them.
Search and tried plenty of methods, but i can't figure out the right one. Hoping for Your advice.
I really appreciate Your time. Thanks.

[Greg M]

Hi there,

See if the following code does what you need:

Please Login or Register  to view this content.

The highlighted values may be altered to suit your requirements.


Hope this helps - please let me know how you get on.

Regards,

Greg M