Importar de Excel e trabalhar parâmetros para banco em Access

Boa tarde!
Estou com a seguinte duvida.
Preciso exportar um Excel para o Access, porem desta tabela do Excel eu preciso de somente alguns dados.
Vamos pensar que já importei ela. Então minha duvida fica o seguinte. Preciso de um comando no Access que pegue apenas uma determinada parte da tabela. Como não coloquei nenhum nome na tabela todos os nomes esta como “ campo”. Ou seja preciso dos dados a partir do campo 6. E a partir da linha 9. A partir disto ele pode deletar essa parte da tabela ou copiar ela para outra. O que seria o essencial era pegar a tabela importada pegar os campos necessários e colocar eles em outra tabela.

Estou aberto para qualquer tipo de opinião de como resolver esse problema. Seja com uma consulta ou criando alguma rotina para fazer a tratativa de dados.
Para uma melhor analise estou postando o modelo do Excel que estou importando.
Enfim, como sempre agradeço desde já.

Abraço.

Bom dia, realizei alguns testes. Consegui importar para o Access. Agora o que eu preciso e chamar todos os nomes cadastrados de uma tabela e fazer uma analise de dados e jogar em outra tabela.
Mas meu Rs.EOF nao funciona, tentei outras alternativas mas nao consigo. Segue abaixo o ultimo codigo que utilizei para tentar essa tarefa.

Private Sub Comando36_Click()

Dim i As Integer, j As Integer, b As Integer
i = 1
b = 5

For j = i To b

conexao
sql = "Select * from func_dados order by codigo desc "
validar_leitura2
'If sr.EOF = False Then
'Do While RS.EOF = False
'i 'f RS.BOF = True Then
lst_colaborador.AddItem (RS.Fields("nome"))
txt_func_matricula = UCase(RS.Fields("matricula"))
txt_col_nome = UCase(RS.Fields("nome"))
txt_col_cota = RS.Fields("Cota")
txt_func_cota = RS.Fields("Cota")
bt_col_departamento = UCase(RS.Fields("departamento"))
bt_col_vinculo = UCase(RS.Fields("vinculo"))
txt_col_matricula = UCase(RS.Fields("Matricula"))

acumlador = 0
acumulador2 = 0
acumulador = txt_col_cota
acumulador2 = txt_col_impressoes

If acumulador >= acumulador2 Then
txt_col_ultrapassou_cota = "Não"
End If
If acumulador < acumulador2 Then
txt_col_ultrapassou_cota = "Sim"
End If

conexao

sql = "SELECT * from tab_imp_colaborador WHERE Nome Like '" & txt_col_nome & "'"
gerar_codigo
validar_leitura3
db.Execute "INSERT INTO tab_imp_colaborador(matricula,Nome,Cota2,Ultrapassou_Cota,Total_Impressao, Departamento, Vinculo, Semana,Mes_Impressao) VALUES ( '" & txt_col_matricula & "','" & txt_col_nome & "', " & txt_col_cota & ",'" & txt_col_ultrapassou_cota & "' ," & txt_col_impressoes & ", '" & bt_col_departamento & "', '" & bt_col_vinculo & "', '" & bt_col_semana & "','" & bt_col_mes & "')"
MsgBox ("Dados Inseridos")
' RS.MoveNext
limpar_dados2
Next j
'RS.MoveNext
' Loop
' End If
'RS.MoveNext
End Sub