Help!

I am working with the following code that I found in my online search to help automatically refresh pivots linked to data that may expand, contract, etc. It isn't working and I am obviously missing something. I am using the following code, but honestly have no idea which fields I need to update with specific references to my personal workbook.

________________________________________________________________

Sub AdjustAllPivotDataRanges()
'PURPOSE: Dynamically change every pivot table's data source range in the workbook
'SOURCE: www.TheSpreadsheetGuru.com/the-code-vault

Dim sht As Worksheet
Dim pvt As PivotTable
Dim StartPoint As Range
Dim rng As Range
Dim SourceAddress As String

'Enter Worksheet Name that holds your Pivot data source
Set sht = ActiveWorkbook.Worksheets("Data")

'Enter first cell in your Pivot data source
Set StartPoint = sht.Range("C5")

'Create SourceData address
Set rng = sht.Range(StartPoint, StartPoint.SpecialCells(xlLastCell))
SourceAddress = sht.Name & "Data" & rng.Address(ReferenceStyle:=xlR1C1)

'Loop through and update pivot tables with new data source range
For Each sht In ThisWorkbook.Worksheets
For Each pvt In sht.PivotTables

'Change Pivot Table's data source range address
pvt.ChangePivotCache _
ThisWorkbook.PivotCaches.Create( _
SourceType:=xlDatabase, _
SourceData:=SourceAddress)

'Ensure Pivot Table is refreshed
pvt.RefreshTable

Next pvt
Next sht

'Completion Message
MsgBox "All Pivot Table Data Source Ranges have been updated in this workbook!", vbInformation

End Sub