Get Actual Print Area of an Excel Sheet (Through VBA)

If there is only one shape(chart) in sheet1 ,then try this:

sheet1.range(sheet1.UsedRange,sheet1.Shapes(1).BottomRightCell).Address