Generating Pivot for the last updated row - vba

Question

I have two sheets. Sheet1 "Result" which has an table that contains 8 columns.
I have the second sheet "Sum" where I am generating an Pivot table for the Reuslt sheet.
The code, works fine, but it calculates the sum of each and every column and gives the result.
I would like to have the pivot table only for the last updated row.
Each and everyweek the last update row changes. Next week ,the updates will be found in 17th and so on...
Could anyone suggest how I could do it? any lead would be helpful
Sub sum2017()
Dim ws9 As Worksheet
Dim pc9 As PivotCache
Dim pt9 As PivotTable
Dim ct9 As Integer
Set ws9 = Sheets("Sum")
Set pc9 = ActiveWorkbook.PivotCaches.Create(xlDatabase, "'Result'!R1C1:R1048576C6")
Set pt9 = pc9.CreatePivotTable(ws9.Range("A3"))
pt9.AddDataField pt9.PivotFields("NOK"), "Sum of NOK", xlSum
pt9.AddDataField pt9.PivotFields("OK"), "Sum of OK", xlSum
pt9.AddDataField pt9.PivotFields("Total"), "Sum of Total", xlSum
pt9.AddDataField pt9.PivotFields("NOK %"), "Sum of NOK %", xlSum
pt9.AddDataField pt9.PivotFields("OK %"), "Sum of OK %", xlSum
pt9.DataLabelRange.HorizontalAlignment = xlCenter
pt9.DataLabelRange.ReadingOrder = xlContext
pt9.TableRange2.HorizontalAlignment = xlCenter
End Sub

Answer 1

This code works, but every time will add help sheet when new pivottable is created. If you dont want to do that, just add some extra sheet, name it as you want to, than change referece of wskHelpSheet to that sheet and remember to always clean this worksheet at the start of your macro. I hope that it sound clear to you :)
Sub sum2017()
Dim ws9 As Worksheet
Dim wskResult As Worksheet
Dim pc9 As PivotCache
Dim pt9 As PivotTable
Dim ct9 As Integer
Dim rngPivotRangeHeaders As Range
Dim lngLRow As Long
Dim lngLCol As Long
Dim rngPivotRangeRecords As Range
Dim rngPTRange As Range
Dim wskHelpSheet As Worksheet
Set ws9 = Sheets("Sum")
Set wskResult = ThisWorkbook.Sheets("Result")
Set wskHelpSheet = Worksheets.Add
With wskResult
lngLRow = .Cells(Rows.Count, "B").End(xlUp).Row
lngLCol = .Cells(1, Columns.Count).End(xlToLeft).Column
Set rngPivotRangeHeaders = .Range(.Cells(1, 1), .Cells(1, lngLCol))
Set rngPivotRangeRecords = .Range(.Cells(lngLRow, 1), .Cells(lngLRow, lngLCol))
Set rngPTRange = Union(rngPivotRangeHeaders, rngPivotRangeRecords)
rngPTRange.Copy
End With
With wskHelpSheet
.Range("a1").PasteSpecial Paste:=xlPasteValues
lngLRow = .Cells(Rows.Count, "B").End(xlUp).Row
lngLCol = .Cells(1, Columns.Count).End(xlToLeft).Column
Set rngPTRange = .Range(.Cells(1, 1), .Cells(lngLRow, lngLCol))
End With
Set pc9 = ActiveWorkbook.PivotCaches.Create(xlDatabase, rngPTRange)
Set pt9 = pc9.CreatePivotTable(ws9.Range("A3"))
With pt9
.AddDataField .PivotFields("NOK"), "Sum of NOK", xlSum
.AddDataField .PivotFields("OK"), "Sum of OK", xlSum
.AddDataField .PivotFields("Total"), "Sum of Total", xlSum
.AddDataField .PivotFields("NOK %"), "Sum of NOK %", xlSum
.AddDataField .PivotFields("OK %"), "Sum of OK %", xlSum
.DataLabelRange.HorizontalAlignment = xlCenter
.DataLabelRange.ReadingOrder = xlContext
.TableRange2.HorizontalAlignment = xlCenter
End With
End Sub