Pivot table grand total

[Darren Smith]

The pivot table puts its grand total below I need it above the table.
This is my code can see what is wrong with it.

Sub Grand_Totals()

   Dim ws As Worksheet
   Dim lRow As Long
   Dim lCol As Long
   Dim rngA As Range
   Dim rngB As Range
   Dim rngC As Range
   Dim rngD As Range
   Dim rngE As Range
   Dim rngF As Range
   Dim rngG As Range
   Dim rngH As Range
   Dim rngI As Range
   Dim rngJ As Range
   Dim rngK As Range

   Set ws = ThisWorkbook.Worksheets("Pro Table")
   
   With ws
   
   lRow = Cells.Find(What:="*", _
                    After:=Range("A1"), _
                    LookAt:=xlPart, _
                    LookIn:=xlFormulas, _
                    SearchOrder:=xlByRows, _
                    SearchDirection:=xlPrevious, _
                    MatchCase:=False).Row

   Set rngA = .Range("C12" & lRow)
   Set rngB = .Range("D12" & lRow)
   Set rngC = .Range("E12" & lRow)
   Set rngD = .Range("F12" & lRow)
   Set rngE = .Range("G12" & lRow)
   Set rngF = .Range("H12" & lRow)
   Set rngG = .Range("I12" & lRow)
   Set rngH = .Range("J12" & lRow)
   Set rngI = .Range("K12" & lRow)
   Set rngJ = .Range("L12" & lRow)
   Set rngK = .Range("M12" & lRow)




.Range("C9") = WorksheetFunction.Sum(rngA)
.Range("D9") = WorksheetFunction.Sum(rngB)
.Range("E9") = WorksheetFunction.Sum(rngC)
.Range("F9") = WorksheetFunction.Sum(rngD)
.Range("G9") = WorksheetFunction.Sum(rngE)
.Range("H9") = WorksheetFunction.Sum(rngF)
.Range("I9") = WorksheetFunction.Sum(rngG)
.Range("J9") = WorksheetFunction.Sum(rngH)
.Range("K9") = WorksheetFunction.Sum(rngI)
.Range("L9") = WorksheetFunction.Sum(rngJ)
.Range("M9") = WorksheetFunction.Sum(rngK)

    
    End With
    
End Sub