Перенос таблицы из Word в Excel

Sub Копирование_в_Excel_таблицу_из_Word()
    Dim i%, j%, S$, DocFullName$, WA As Object, oMyDoc As Object
    DocFullName = "C:\Temp2\Doc1.docx"
    Set WA = CreateObject("Word.Application")
    WA.Visible = True
    Set oMyDoc = WA.Documents.Open(DocFullName)
    For i = 1 To oMyDoc.Tables(1).Rows.Count
        For j = 1 To oMyDoc.Tables(1).Columns.Count
          S = oMyDoc.Tables(1).cell(i, j).Range.Text
          S = Replace(S, Chr(7), "") 'Удаление символа конца ячейки Word
          Cells(i, j) = S
        Next j
    Next i
    oMyDoc.Close 0
    WA.Quit False
    Set oMyDoc = Nothing: Set WA = Nothing
End Sub

 Cells(i+22, j) = S

Function GetFilePath(Optional ByVal Title As String = "Выберите файл для обработки", _
                     Optional ByVal InitialPath As String = "c:", _
                     Optional ByVal FilterDescription As String = "Файлы счетов", _
                     Optional ByVal FilterExtention As String = "*.*") As String
    On Error Resume Next
    With Application.FileDialog(msoFileDialogOpen)
        .ButtonName = "Выбрать": .Title = Title:
        .InitialFileName = GetSetting(Application.Name, "GetFilePath", "folder", InitialPath)
        .Filters.Clear: .Filters.Add FilterDescription, FilterExtention
        If .Show <> -1 Then Exit Function
        GetFilePath = .SelectedItems(1)
        folder$ = Left(.SelectedItems(1), InStrRev(.SelectedItems(1), ""))
        SaveSetting Application.Name, "GetFilePath", "folder", folder$
    End With
End Function

    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .InitialFileName = "C:\"
        .ButtonName = "OK"
        .Filters.Clear
        .Filters.Add Description:="Файлы Word", _
            Extensions:="*.doc*"
        If .Show = 0 Then
            Exit Sub
        End If
        DocFullName = .SelectedItems(1)
        .Filters.Clear
    End With