How to add a company tagline (logo) on the row after the last row of a pivot table

Very basic example:

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    Const cTagLine = "Merry Christmas"
    Dim rngX As Range
    Set rngX = Cells.Find(cTagLine, LookIn:=xlValues)
    If Not rngX Is Nothing Then
        rngX.Clear
    End If
    With Target.TableRange1
        .Offset(.Rows.Count + 1, .Columns.Count - 1).Resize(1, 1).Value = cTagLine
    End With
    Set rngX = Nothing
End Sub

To utilise above - right click on sheet name containing the Pivot of interest and select View Code - paste above into resulting window and then close VBE.

When the Pivot is refreshed so the TagLine should be added to the cell two rows below the bottom right cell of the Pivot wherever that may be post-refresh.