Setting print area by vba

I have looked for a way to set the print area of a worksheet through vb.


I would like it to find the last row of the worksheet and set it to be printed.

Some of the examples take it beyond the last row of data, because the the code that may be in the empty cells.

HTML Code: 

That took me beyond the last row.

Any suggestions

Formulas in the empty cells
like: =C1&" " & D1

Codes the joint two cells together after data is placed in column C and column D

This was copied past the last row so the entries that would be added would automatically add them together.

Sorry if that is not clear.