Sub mergecellstext()

    For i = 1 To 20

        Sheet1.Range("a" & i & ":n" & i).MergeCells = True

    Next i

End Sub