VBA to copy grand total in Pivot table

Hi. I have a sheet where I use VBA to perform a few calculations with a pivot table.

1) I would like the GRAND TOTAL ROW of the pivot table to be copied and pasted 5 rows below the grand total row. Problem is the grand total row is dynamic and dependent on the data in column A of the pivot table. I need the VBA to copy the "dynamic and moving" grand total row wherever it is

2) I would like the second (third and forth, etc....) set of results to be pasted below the first row. Then the third results below the second results. The first row of results is also "dynamic and moving" since it is 5 row below the grand table.

I am very new to VBA and normally I use the recording function.

In this example, The grand total is at row 52 but VBA to select the grand total row. Row 102 is where I pasted first the data but I want it to be 5 rows below the grand total. The second set of results need to be pasted 1 row below the first set of results.

Rows("52:52").Select
Selection.Copy
Rows("102:102").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

GETTING SECOND OF RESULTS to be pasted below the first set of results.

Rows("52:52").Select
Selection.Copy
Rows("103:103").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

File is attached

Thank you sir. It works very well