请问怎么用vba定位到各位表格上面写入文字

如表怎么定位写入内容到每个位置。

Sub Macro2()
'
' Macro2 Macro
' 宏在 2011/6/3 由 L 录制
'
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.TypeText Text:="张三"
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="李四"
    Selection.MoveRight Unit:=wdCell
    Selection.MoveRight Unit:=wdCell
    Selection.MoveDown Unit:=wdLine, Count:=2
    Selection.TypeText Text:="123456789"
End Sub