Sub Макрос7()
wb2 = ActiveWorkbook.Name
Set Sh2 = Workbooks(wb2).Sheets(1)
bbb = Sh2.Name  
    With Sh2 
        LastRow2 = .Cells(Rows.Count, 1).End(xlUp).Row 'последняя строка таблицы 
        LastCollumn2 = .Cells(1, Columns.Count).End(xlToLeft).Column  ' последний столбец таблицы 
        .ListObjects.Add(xlSrcRange, Range(Cells(1, 1), Cells(LastRow2, LastCollumn2)), , xlYes).Name = "Tablica11"
    End With
    Sh2.Activate 
    Sh2.ListObjects("Tablica11").Sort.SortFields.Clear 
    Sh2.ListObjects("Tablica11").Sort.SortFields.Add Key:=Range("Tablica11[[#All],[Дата операции]]"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    
    With Sh2.ListObjects("Tablica11").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    

=ЕСЛИОШИБКА(ВПР(B2&C2;A:D;4;0);0)+ЕСЛИОШИБКА(ВПР(C2&B2;A:D;4;0);0)

=ЕСЛИОШИБКА(ЕСЛИОШИБКА(ВПР(J2&K2;I:L;4;0);0)+ЕСЛИОШИБКА(ВПР(K2&J2;I:L;4;0);"");"")

=ИНДЕКС(D:D;ПОИСКПОЗ(B2&C2;A:A;0);1)+ИНДЕКС(D:D;ПОИСКПОЗ(C2&B2;A:A;0);1)

Sub SORT()
Dim r As Range, wb1 As String, Sh1 As Worksheet
wb1 = ActiveWorkbook.Name 
Set Sh1 = Workbooks(wb1).Sheets(1) 
LastRow = Cells(Rows.Count, 1).End(xlUp).Row 
lastcollumn = Cells(1, Columns.Count).End(xlToLeft).ColumnCells.AutoFilter 
    With Sh1
        Set r = .Range(Cells(1, 1), Cells(LastRow, lastcolumn))
        With .SORT
            .SortFields.Clear
            .SortFields.Add Key:=Range("O1:O" & LastRow), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .SetRange r
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With
End Sub

Sub SORT()
Dim r As Range, wb1 As String, Sh1 As Worksheet
wb1 = ActiveWorkbook.Name 
Set Sh1 = Workbooks(wb1).Sheets(1) 
LastRow = Cells(Rows.Count, 1).End(xlUp).Row 
lastcolumn = 13
Cells.AutoFilter 
    With Sh1
        Set r = .Range(Cells(1, 1), Cells(LastRow, lastcolumn))
        With .SORT
            .SortFields.Clear
            .SortFields.Add Key:=Range("O1:O" & LastRow), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .SetRange r
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With
End Sub

Sub Макрос123()
    For Each PivotFields In ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("город").PivotItems
        Select Case PivotFields.Name
        Case "Т*", "М*"
        Case Else
            PivotFields.Visible = False
        End Select
    Next
End Sub
 

ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Менеджер").PivotFilters.Add2 Type:=xlCaptionBeginsWith, Value1:="М*"
 

     With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("город")
        .PivotItems("Тула").Visible = False
        .PivotItems("(blank)").Visible = False
    End With

Sub aaa()
Dim PTdat As Range, x As Long, y As Byte
With Sheets("Лист1").Range("a1").CurrentRegion
x = .Rows.Count
y = .Columns.Count
End With
Set PTdat = Sheets("Лист1").Cells(1, 1).Resize(x, y)
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=PTdat, _
Version:=xlPivotTableVersion14).CreatePivotTable tabledestination:=Cells(3, 1), Defaultversion:=xlPivotTableVersion14
End Sub
 

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Sheets("Лист1").Range("a1").CurrentRegion, Version:=xlPivotTableVersion14).CreatePivotTable tabledestination:=Cells(3, 1), Defaultversion:=xlPivotTableVersion14