Excel Data Exported to Microsoft Access --> Object Required

Try this VBA code block instead.... You will need to add the reference to the Access Object Library as mentioned in the code comments.  In addition if the file you are running the code out of is not "C:\Users\jt\Desktop\Inventory Policy Analysis.xlsm"  then you will need to update the FileName Parameter :

Option Explicit

Sub AccImport()
    Dim acc As New Access.Application
    Dim database_table_name As Variant
    
    'You need to set a reference to the below Object Library
    'In the Visual Basic Editor do this:
    'Tools > References > Microsoft Access Data XX.X Object Library
    'The XX.X will be your version of Access......something like this 12.0, 14.0, 16.0 etc....

    database_table_name = InputBox("Please Give a Name To The Test You Are Going to Export (No Spaces): ")
    With acc
        .OpenCurrentDatabase "C:\Users\jt\Desktop\Microsoft_Access\HSS_Test.accdb"
        .DoCmd.RunSQL "CREATE TABLE " & database_table_name & " ([Dates] datetime NULL , " & _
        "[Demand] DOUBLE , " & _
        "[Inventory Position] DOUBLE, " & _
        "[On Order] DOUBLE, " & _
        "[On Hand] DOUBLE)"
        
        'In the below DoCmd.TransferSpreadsheet statement if your filename is not the file you are working in then
        'you will need to update the Filename parameter to your filepath....
        'i.e. Filename:= "C:\Users\jt\Desktop\Inventory Policy Analysis.xlsm"
        
        .DoCmd.TransferSpreadsheet _
                TransferType:=acImport, _
                SpreadSheetType:=acSpreadsheetTypeExcel12Xml, _
                TableName:=database_table_name, _
                Filename:=Application.ActiveWorkbook.FullName, _
                HasFieldNames:=True, _
                Range:="Simulation$I1:M100"
        .CloseCurrentDatabase
        .Quit
    End With
    Set acc = Nothing
End Sub