Как скопировать один столбец из слова в существующую таблицу Excel с помощью VBA?

Question

У меня есть таблица в слове, которая имеет два столбца. Я хочу скопировать только второй столбец во 2-й столбец моей ранее существующей таблицы в Excel. Мой цикл for работает, но все данные неоднократно сохраняются в одной и той же ячейке. Как хранить в последовательных ячейках столбца?

Sub copyToExcel()
Dim xlapp As Excel.Application
Dim xlwb As Excel.Workbook
Dim xlsheet As Excel.Worksheet

Dim doc As Document
Dim tbl As Table
Dim lstrw As Long, lstcol As Integer
Dim tblrange As Range

Set doc = ThisDocument
Set xlapp = CreateObject("Excel.Application")
xlapp.Visible = True
Set xlwb = xlapp.Workbooks.Open("C:\Users\ankit\Downloads\challenges.xlsm")
Set xlsheet = xlwb.Worksheets("Challenge #2")

Set tbl = doc.Tables(1)
With tbl
 lstrw = .Rows.Count
 lstcol = .Columns.Count
 For x = 2 To lstrw
    Set tblrange = .Cell(x, 2).Range
    tblrange.End = .Cell(lstrow, lstcol).Range.End
    tblrange.Copy
    xlsheet.Paste
 Next x
End With

Set xlapp = Nothing
Set xlwb = Nothing
Set tblrange = Nothing
Set xlsheet = Nothing
Set doc = Nothing

End Sub