Excel VBA Macro to Display a Blank Row After Each Item in PivotTable

To display a blank row after each item in a PivotTable use the LayoutBlankLine property of the PivotField object as shown below.

Dim ws As Worksheet
Set ws = ActiveSheet
Dim wb As Workbook
Set wb = ActiveWorkbook
Dim PTcache As PivotCache
Dim PT As PivotTable
'Define the cache for the PivotTable
Set PTcache =wb.PivotCaches.Create(SourceType:=xlDatabase, _
SourceData:=Range("Sales_Data[#All]"),Version:=xlPivotTableVersion15)
'Create the PivotTable
Set PT =ws.PivotTables.Add(PivotCache:=PTcache, _
TableDestination:=Range("J1"),TableName:="Sales Analysis")
PT.AddFieldsRowFields:=Array("Region", "Branch"), _
ColumnFields:="Product",PageFields:="Product Category"
PT.AddDataFieldField:=PT.PivotFields("Revenue"), _
Caption:="No ofTransactions", Function:=xlCount
'Show a blank row between each region
PT.PivotFields("Region").LayoutBlankLine = True