word vba 复制表格时候出现错误

12111683

本意是  第四个表格的第四列单元格从下往上复制 第五个表以后，每个表的第6行4列那个单元格

但是运行到红色地方提示运行提示该对象不支持该属性方法，求老师帮帮忙教

B = 5
For a = 23 To 2 Step -1
  Set myCell = ThisDocument.Tables(4).Cell(Row:=a, Column:=4)
  C = Tables(B).Cell(6, 4)
  myCell.Range.prependto C
  B = B + 1
  If B + 1 > ThisDocument.Tables.Count Then
  Exit For
End If
Next