Sub test()
    Dim pt As PivotTable
    Set pt = ActiveSheet.PivotTables( 1 )
    If Intersect(ActiveCell, pt.DataBodyRange) Is Nothing Then MsgBox ("Doesn't Intersect") Else MsgBox ("Intersects")
End Sub

Sub test()
    Dim rng1 As Range, rng2 As Range
    On Error GoTo Done
    Set rng1 = Intersect(ActiveCell.PivotTable.TableRange1, ActiveCell.PivotCell.Range.EntireColumn)
    Set rng2 = Intersect(ActiveCell.PivotTable.TableRange1, ActiveCell.PivotCell.Range.EntireRow)
    Select Case True
    Case Application.CountIf(rng1, "*Total*"), Application.CountIf(rng2, "*итог *")
        MsgBox ("Intersects")
    Case Else
        MsgBox ("Doesn't Intersect")
    End Select
Done:
End Sub

Sub test()
    Dim rngRow As Range, rngCol As Range
    On Error GoTo Done
    With ActiveCell
        Set rngCol = Intersect(.PivotTable.TableRange1, .PivotCell.Range.EntireColumn)
        Set rngRow = Intersect(.PivotTable.TableRange1, .PivotCell.Range.EntireRow)
    End With
    With Application
        Select Case True
        Case .CountIf(rngCol, "*итог *"), .CountIf(rngRow, "*итог *"): MsgBox ("Intersects")
        Case Else: MsgBox ("Doesn't Intersect")
        End Select
    End With
Done:
End Sub

pt.PivotSelect "FirstField[All;Sum]", xlDataAndLabel
set rngSubTotalsForFirstField = Selection
pt.PivotSelect "'Column Grand Total'", xlDataAndLabel
set rngSubTotalsForFirstField = union(rngSubTotalsForFirstField, Selection)

 With ActiveSheet.PivotTables( 1 )
    .PivotSelect "'Row Grand Total'", xlDataOnly, True
     Set rng = Selection
    .PivotSelect "'Column Grand Total'", xlDataOnly, True
     Set rng = Union(rng, Selection)
 End With