Sub TestX()
    Dim intI As Integer
    
    intI = InputBox("Введите номер строки")
    
    If InStr(Range("I" & intI), "*") <>  0  Then
        Range(intI & ":" & intI).Select
    Else
        MsgBox "В ячейке " & Range("I" & intI).Address _
          & "нет символа *."
    End If
End Sub

Sub TestY()
    Dim wrdApp As Word.Application
    Dim wrdDoc As Word.Document
    
    Set wrdApp = New Word.Application
    Set wrdDoc = wrdApp.Documents.Add
    
    ' Отправляем в Word активный документ.
    ' Для отправки из определенного места пишем:
    ' Filename:="D:\My Documents\List.xls"
    wrdDoc.InlineShapes.AddOLEObject _
      ClassType:="Excel.Sheet.8", _
      Filename:=ActiveWorkbook.Path & Application.PathSeparator & ActiveWorkbook.Name, _
      LinkToFile:=False, _
      DisplayAsIcon:=False
            
    wrdApp.Visible = True
End Sub

wrdDoc.PasteSpecial Link:=False, DataType:=wdPasteRTF, Placement:= _
  wdInLine, DisplayAsIcon:=False