求教老师如何将EXCEL汇至表

一.如果将 A30:I50 DATA PAST 至 表
     求教老师  VBA 要如何修改 ?
二.如果用INSTER的方法
     求教老师   VBA 要如何 ?

     Dim nx As Object

     Set nx = CreateObject("excel.application")

     nx.Visible = True
     myfile = CurrentProject.Path & "\S1.xls"
   
     nx.Workbooks.Open myfile
     nx.Sheets(1).Select
     nx.Range("A1").Select
     nx.Sheets(1).paste
     nx.Range("A30").Select
     nx.Range("A30:I50").Select
     nx.Range("A30:I50").copy
          
    DoCmd.OpenTable "TEMP"
     
     DoCmd.RunCommand acCmdPaste