Set Print Area macro Code

Hi,
I need a macro code. "TOTAL VALUE" will appear in column A but in different row, some times 28, or 29 or 26 or 30 even 40.Is there any macro code so that macro will set print area till the row containing "TOTAL VALUE", so its mean print area will be set column A to E and row will be 1 to till "TOTAL VALUE" containing row. I attached a sample file to make clear my query. I have code but row is fixed. But my requirement is different in case of row. Please help me for this macro code.

Sub Set_Print_Area()
'
' Set_Print_Area Macro
'
ActiveSheet.PageSetup.PrintArea = Range("A1", Range("E40").End(xlUp)).Address

End Sub


Thanks
roman

wow! it is working but i need to set area till "TOTAL VALUE" containing row not till last value

Originally Posted by TMShucks

Ok, then maybe add .Offset(-4, 0)

Hi TMShucks

I didn't understand where i will add it, could please notify me??

Hi Robert

I attached a sample file again, please where i made the error, i couldn't.

thank u so much, its working