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