VBA Copy table from email to Excel - Cannot paste the data - 1004

Yea_So
My humble apologies...
I managed to insert incorrect code from another project I am busy with.
Here is the correct Sub. It gives the error on the last line.

Sub GetTable()

Dim oLookInspector As Inspector
Dim oLookMailitem As MailItem

'Declare Word Variables.
Dim oLookWordDoc As Word.Document
Dim oLookWordTbl As Word.Table

'Declare Excel Variables.
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlWrkSheet As Excel.Worksheet

'Get mail item.
Set oLookMailitem = Application.ActiveExplorer.CurrentFolder.Items("Test Table")

'Get Active Inspector.
Set oLookInspector = oLookMailitem.GetInspector

'Get Word Editor object
Set oLookWordDoc = oLookInspector.WordEditor

'Create new Excel App.
Set xlApp = New Excel.Application

'Make visible.
xlApp.Visible = True

'Add new workbook.
Set xlBook = xlApp.Workbooks.Add
'
''Add a new worksheet.
'Set xlWrkSheet = xlBook.Worksheets.Add
Set xlWrkSheet = xlBook.Sheets(1)

'Grab the Word Table.
Set oLookWordTbl = oLookWordDoc.Tables(1)

'Copy the table.
oLookWordTbl.Range.Copy

'Paste it to the sheet.
xlWrkSheet.Paste Destination:=xlWrkSheet.Range("A1")

End Sub