Hi tinfanide,
It seems Word needs som extra instruction about the location. Try something based on:
Code:
Sub Demo()
Dim Shp As Shape, Rng As Range
With ActiveDocument
Set Rng = .Tables(1).Cell(2, 2).Range
Rng.Collapse wdCollapseStart
Set Shp = ActiveDocument.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
Left:=0, Top:=0, Width:=72, Height:=12, Anchor:=Rng)
With Shp
.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
End With
End With
End Sub