Selection.MoveRight Unit:=wdCharacter, Count:=3, Extend:=wdExtend
    For x = 1 To 20
    Selection.Cells.Merge
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=3, Extend:=wdExtend
    Next