Word Macro: Bewegen Sie den Cursor eine Zeile nach unten

Ich habe ein Makro, mit dem ich zwei Zellen in einer Worttabelle zusammengefügt habe, aber ich möchte, dass der Cursor um eine Zelle nach unten bewegt wird, so dass ich wiederholt die Tastenkombination drücken kann, um das Makro zu wiederholen Befehl immer und immer wieder.

Der Makrocode, den ich (schamlos kopiert und von einer Webseite eingefügt) habe, lautet wie folgt:

Sub MergeWithCellToRight()
'
' MergeWithCellToRight Macro
'
'
Dim oRng As Range
Dim oCell As Cell
Set oCell = Selection.Cells(1)
If oCell.ColumnIndex = Selection.Rows(1).Cells.Count Then
MsgBox "There is no cell to the right?", vbCritical, "Error"
Exit Sub
End If
Set oRng = oCell.Range
oRng.MoveEnd wdCell, 1
oRng.Cells.Merge
Selection.Collapse wdCollapseStart
End Sub

Ich habe versucht, die folgende Zeile unmittelbar vor der 'End Sub'-Anweisung hinzuzufügen

Selection.MoveDown wdCell, 1

aber das erzeugt den Fehler, Run-time error '4120' Bad Parameter wann immer ich das Makro ausführte.

Kann mir jemand sagen, wie ich das korrigieren kann oder was ich falsch mache?

Keine Ahnung, ob das helfen könnte, aber ich habe folgendes:

Sub Merges2Cols()
Dim nbLines As Integer
    nbLines = 10     'you'd have to count the number of lines you want to merge
    For i = 1 To nbLines
        Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend
        Selection.Cells.Merge
        Selection.MoveDown Unit:=wdLine, Count:=1
    Next
End Sub