Update used RANGE by finding the last non blank row (Pivot tables)

[h380am]

Dear members,

I want a macro that creates a new dynamic range while updating pivot tables. Otherwise, a macro that updates the used range with the new rows added to the data source sheet then updates all pivot tables within the woorkbook.
NB: each pivot table has its own DATA SOURCE sheet

1 - is it doable ?
2- if it's doable. can someone please assist regarding this issue ?

Best regards,

Sub refreshAllPivotTables()
    
        Dim ws As Worksheet
        Dim pt As PivotTable
        Dim lastrow As Long
        
        For Each ws In ThisWorkbook.Worksheets
            For Each pt In ws.PivotTables
                    pt.RefreshTable
            Next pt
        Next ws
        With pt.TableRange1
            lngLastRow = .Cells(.Cells.Count).Row
        End With
    
End Sub

 

[Fluff]

Duplicate Create a new dynamic range while updating pivot tables

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread.
Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).