VBA - drag down formulas to end pivot

[Chelses]

Hi everyone,

I am trying to create a macro that will automatically drag down the formulas in column I and K to one row before the end of the pivot.
The last row of the pivot is the subtotal, that's why I don't want to drag down the formula to the end of the pivot.
Does anyone have a simple way to do it? I now have the following code which copies the formulas down to the end of the pivot:

 

[Chelses]

With ActiveSheet
LastRow = .Cells(.Rows.Count, "H").End(xlUp).Row
.Range("I2").AutoFill .Range("I2").Resize(LastRow)
.Range("K2").AutoFill .Range("K2").Resize(LastRow)

The pivot is in column H