Copy Data till Last Row and Column

[sg2209]

Hi Friends,

i am newbie to VBA and don't know how to write the codes , tried recorded however not getting the expected results
I have a Pivot Table and need to copy the Data from A7 till last Row and Last Column its in Table Format , every day Data gets added to source data and Pivot has been updating auto.

I need to copy the Data starting from Cell A7 since daily numbers are getting added ( Columns and Row are adding to Pivot Table )

How do i copy the Data from At to Last Row and Column and email through Outlook Body.

Recorded Macro doesn't help me here.
Kindly review and help

[mana]

MsgBox Range("A7").PivotTable.TableRange1.Address

[sg2209]

Why MsgBox ? will it copy the entire pivot table