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