VBA - search specific value in cell and copy 10 lines (downward and sideward)

[juicersz]

Hi,

I've recorded a macro where the pivot table will automatically constructed. However, the raw data is not always the same (total lines are different) therefore the grand total sum will not always be on the same line (refer below hard code range HC5 and B386). If this is a variable, how do I make the macro to search for the "grand total" word, sort from largest to smallest numbers and copy the next 10 cells (downward and sideward, separately of course.)

The reason I want to copy due to the template that I want to paste the data into the template.

'to select grand total at the bottom of the pivot table
    Range("HC5").Select ActiveSheet.PivotTables("PivotTable2").PivotFields("BidClient").AutoSort _
        xlDescending, "Sum of Volume", ActiveSheet.PivotTables("PivotTable2"). _
        PivotColumnAxis.PivotLines(210), 1

'to select grand total at the top right of pivot table
    Range("B386").Select ActiveSheet.PivotTables("PivotTable2").PivotFields("AskClient").AutoSort _
        xlDescending, "Sum of Volume", ActiveSheet.PivotTables("PivotTable2"). _
        PivotRowAxis.PivotLines(382), 1

I have attached the image foryour ease of reference.

sample1.jpg
Many thanks.