Paste to a cell all visible pivot item

[myenters69]

Please help guys,

I have search all over with no luck.
I just want to copy all value in visible pivot item and paste it to single cell.

Lets say i have pivot item "Channel_1" That have four list "Corporate", "Retail", "Internal Account", and "(blank)".

I will choose manually in that pivot item to make visible only, lets say "Corporate" and "Internal Account".

how to make the Corporate and Internal account pasted/listed on a cell.

All i know that i could call all the visible list and show in msgbox using this:

Sub Macro1()    Dim asu As PivotItem
    Dim asustr As String
        
    For Each asu In ActiveSheet.PivotTables("PivotTable3").PivotFields("Channel_2").PivotItems
        If asu.Visible Then asustr = asu.Name
        MsgBox (asustr)
        Next asu
End Sub

Sorry for my bad english
Thanks