Sub sdf()
x = Application.Max(Worksheets("platforms").Range("B:B"))
On Error Resume Next
numstr = Sheets("platforms").Range("B2:B6").Find(x, LookIn:=xlValues).Row
If numstr = 0 Then MsgBox "Нет такого числа"
On Error GoTo 0
End Sub

Sub Макрос4()
    
Dim oWord As Word.Application
Dim oDoc As Word.Document
Set oWord = CreateObject("Word.Application")
Set oDoc = oWord.Documents.Add()
oWord.Visible = True
oDoc.Activate
With oWord
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=16, NumColumns _
        :=2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitWindow
    With Selection.Tables(1)
        If .Style <> "Сетка таблицы" Then
            .Style = "Сетка таблицы"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = False
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = False
        .ApplyStyleRowBands = True
        .ApplyStyleColumnBands = False
    End With
    End With
End Sub

Sub Макрос1()
    ActiveWorkbook.SlicerCaches("Срез_Сеть1").ClearManualFilter
    With ActiveWorkbook.SlicerCaches("Срез_Сеть1")
        .SlicerItems("Дикси").Selected = True
        .SlicerItems("Ашан").Selected = False
        .SlicerItems("Карусель").Selected = False
        .SlicerItems("Лента").Selected = False
     End With