in word winword vba it refers to word Range explicitly. As you have moved the code to excel it is taking that as excel range.
Dim
WdApp
As
Word.Application, wdDoc
As
Word.Document
Set
WdApp = Word.Application
Dim
Tbl
As
Table
With
WdApp.ActiveDocument
For
Each
Tbl
In
.Tables
If
Tbl.Cell(1, 2).Range.Text = Chr(13) & Chr(7)
Then
Tbl.
Select
Selection.MoveLeft Unit:=wdCharacter, Count:=3
Dim
myRange
As
Word.Range
Set
myRange = Selection.Range
myRange.
End
= WdApp.ActiveDocument.Range.
End
myRange.Delete
Exit
Sub
End
If
Next
Tbl
End
With