Hi you can do this with VBA, place this code in a module:
Sub PivotTable_FieldsItems()
    Dim PvtTbl As PivotTable
    Dim pvtFld As PivotField
    Dim strPvtFld As String
    
    Set PvtTbl = Worksheets("Sheet5").PivotTables("PivotTable1") '<---- Edit
    For Each pvtFld In PvtTbl.RowFields
        strPvtFld = strPvtFld & ", " & pvtFld.Name
    Next
    Worksheets("Sheet5").Cells(16, 1) = "Row Labels"
    Worksheets("Sheet5").Cells(16, 2) = Mid(strPvtFld, 3)
End Sub
Cheers
Erwin