Private Sub CommandButton7_Click()
   Dim i As Long
   Dim iFilterRegion As String
   Dim iFilterCity As String
   Dim iFilterRegionCity As String
   Dim arr

       iFilterRegion = "ujhs"
       iFilterCity = "jskf"

       For i = 0 To Me.ListBox2.ListCount - 1
           If Me.ListBox2.Selected(i) = True Then
           iFilterRegionCity = iFilterCity & ".&[" & Me.ComboBox5.Value & "]&[" & Me.ListBox2.List(i) & "]"
           'zdes neobhodimo dobavit pervoe i zatem vse jstalnye znachenija iFilterRegionCity v massiv arr
           '................................................
           End If
       Next i


   ActiveSheet.PivotTables("zzz").PivotFields(iFilterRegion).VisibleItemsList = Array("")
   ActiveSheet.PivotTables("zzz").PivotFields(iFilterCity).VisibleItemsList = arr

End Sub

Dim i As Long
Dim iFilterRegion As String
Dim iFilterCity As String
Dim iFilterRegionCity As String

iFilterRegion = "[География].[География].[Корп Регион]"
iFilterCity = "[География].[География].[Область]"

For i = 0 To Me.ListBox2.ListCount - 1
    If Me.ListBox2.Selected(i) = True Then
       iFilterRegionCity = iFilterRegionCity & iFilterCity & ".&[" & Me.ComboBox5.Value & "]&[" & Me.ListBox2.List(i) & "], "
    End If
Next i
iFilterRegionCity = Left(iFilterRegionCity, Len(iFilterRegionCity) - 2)
MsgBox iFilterRegionCity

ActiveSheet.PivotTables("Дистрибьюторы").PivotFields(iFilterRegion).VisibleItemsList = Array("")
ActiveSheet.PivotTables("Дистрибьюторы").PivotFields(iFilterCity).VisibleItemsList = Array(iFilterRegionCity)

ThisWorkbook.Worksheets("Аналитика").Range("C6:K" & iLastRow).Copy 

ActiveWorkbook.Worksheets(ThisWorkbook.Worksheets("Планирование").ComboBox2.Value).Range(Cells(6, iLastCol + 1)).PasteSpecial Paste:=xlAll, Operation:=xlNone