Hello Tom,

The code works great! I'm sorry I did not give clearer details.

Thank you for your help,
jfcby

Tom Ogilvy wrote:
lastrow = cells(rows.count,1).End(xlup).Row

cells(lastrow,"E").Resize(1,4).Merge

Not sure about what your question is regarding the first paragraph. I
answered the question I saw as a question.

--
Regards,
Tom Ogilvy


"jfcby" wrote:

Hello,

I have a workbook with 50 worksheets each with 10 to 500 rows of data
using Columns A-D. This is what I'm tring to do - I've set my gridlines
to print with three blank rows between each row of text but at the end
of my worksheet the three lines do not print. Since my worksheets has
different amount of rows I need to move down to the end of the
worksheet go over to column E, select 4 cells, and merge them.

I've searched tring to find some code but with no luck.

Thank you for your help in advance,
James