如何将vba透视表行数据放入两列而不是同一列？

Sub SplitPivotRowData()
    Dim pt As PivotTable
    Dim pf As PivotField
    Dim pi As PivotItem
    Dim rng As Range
    Dim i As Long
    
    ' 设置透视表对象
    Set pt = ThisWorkbook.Sheets("透视表").PivotTables("透视表名称")
    
    ' 设置透视表字段对象
    Set pf = pt.PivotFields("行字段名称")
    
    ' 清除之前的筛选
    pf.ClearAllFilters
    
    ' 循环遍历透视表行字段的每个项
    For Each pi In pf.PivotItems
        ' 设置筛选条件
        pf.CurrentPage = pi.Name
        
        ' 获取透视表数据区域
        Set rng = pt.TableRange2
        
        ' 将数据复制到两列
        rng.Copy Destination:=ThisWorkbook.Sheets("目标工作表").Range("A" & i + 1)
        
        ' 更新行数
        i = i + rng.Rows.Count
    Next pi
    
    ' 清除筛选条件
    pf.ClearAllFilters
End Sub