Pls check if it helps.Will be expecting your feedback.

-------------------------------------------------------------
Just ensure that you select one cell in PivotTable.
------------------------------------------------------------
Sub SDPivotCustomize()

Dim PT As PivotTable, PC As PivotCell, PF As PivotField

Application.ScreenUpdating = True

Set PC = ActiveCell.PivotCell

Set PT = PC.PivotTable

For Each PF In PT.PivotFields
PF.Subtotals = Array(False, False, _
False, False, False, False, False, _
False, False, False, False, False)
Next PF

PT.RowAxisLayout xlTabularRow

Application.ScreenUpdating = False

End Sub

--------------------------------------------------------------------
Not tried to optimize because much benefit will not be available.
---------------------------------------------------------------------