to a macro on ms access that will get the data from ms excel

DoCmd.TransferSpreadsheet acImport, 8, "MyTable", MyExel, True,
"Print!A4:J18"

On ms excel enter this code

Function SendData()
Dim objAccess As New Access.Application
Dim JCServer
JCServer = ActiveWorkbook.Path & "\New_TC.mdb"
With objAccess
.OpenCurrentDatabase JCServer
.DoCmd.RunMacro "GetData"
.CloseCurrentDatabase
End With
End Function