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