Access - Ayuda con importacion de actualizacion de Excel a Access

Private Sub agregar2_Click()

Dim Xl As Excel.Application 'Definimos una variable de aplicación Excel

Dim filepath As String

Dim rango As String

Dim respuesta As String

Set Xl = New Excel.Application 'Inicializamos la variable

filepath = Xl.GetOpenFilename 'Obtenemos el Excel que queremos importar

'Comprobamos que se haya seleccionado correctamente el archivo

If (filepath <> "") Then

   'Ejecutamos la consulta para que lo importe

  DoCmd.TransferSpreadsheet acImport, , "SpectTerraOptimizada", filepath, True, Me.rango

  MsgBox "Registros guardados con éxito", vbInformation

End If

End Sub

'Ejecutamos la consulta para que lo importe

DoCmd.TransferSpreadsheet acImport, , "SpectTerraOptimizadaTMP", filepath, True, Me.rango