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
    .Selection.Font.Bold = wdToggle
    .Selection.TypeText Text:="УТВЕРЖДАЮ"
     .Selection.TypeParagraph
    .Selection.Font.Bold = wdToggle
    oDoc.Tables.Add Range:=oDoc.Range, NumRows:=16, NumColumns _
        :=2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitWindow
    With oDoc.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 Макрос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