Excel的第一栏和第二栏数据写入到Word,该如何解决

Excel的第一栏和第二栏数据写入到Word
大家好，我有一个Excel文件，里面有一个工作表。大概2000多行，几栏。
我想要把这个工作表从第二行开始，第一栏和第二栏都写入到Word文件。
写到Word文件的格式如下：
The code for "B2" is "A2".
The code for "B3" is "A3".
...
以此类推。


大家能否帮我看看，下面的代码有什么问题？我连把一个Excel单元格的值写到Word都还没有弄对。唉。

下面的这个宏是写在Word中的。

Sub test()
    Dim MyExcelData As Object
    Set MyExcelData = CreateObject("Excel.Application")
    MyExcelData.Visible = True
    
    MyExcelData.Workbooks.Open FileName:="C:\A.xlsm"
    
    
    
    Dim i As Integer
    For i = 2 To 2436
    
    ActiveDocument.Paragraphs(i).Range.Text = Worksheets(1).Cells(i, 1).Value
        ActiveDocument.Paragraphs.Add
    Next i
End Sub
------解决方案--------------------

Sub test()

  Dim MyExcelData As Object

  Set MyExcelData = CreateObject("Excel.Application")

  MyExcelData.Visible = True

    

  MyExcelData.Workbooks.Open FileName:="C:\A.xls"

    

    

    

  Dim i As Integer

  For i = 2 To 2436

    ActiveDocument.Paragraphs.Add

  

  ActiveDocument.Paragraphs(i).Range.Text = MyExcelData.Worksheets(1).Cells(i, 1).Value

  Next i

End Sub

------解决方案--------------------
这样写代码运行效率应该比较低吧？