What you have is to insert a blank general table.
I'd try looking at the following method..
This worked for me just put your path in the Path variable and specify your x,y,z position coordinates (currently 0,0,0)
Dim swApp As Object
Dim Part As Object
Dim FilePath As String
Dim Aspect As Integer
Dim XPos As Double
Dim YPos As Double
Dim ZPos As Double
Dim bool As Boolean
Dim Path As String
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Path = "C:\Users\casparia\Desktop\workflow.xlsx"
bool = Part.InsertObjectFromFile(Path, 1, 0, 0, 0)