Copiar dados filtrados de formulário continuo para tabela

Pessoal boa noite. Estou precisando de ajuda com um código para copiar dados filtrados em formulário continuo para uma tabela. O código que estou aplicando só copia o primeira linha do registro que contém uma série de outros associados ao número de documento. Coloquei uma imagem em anexo para facilitar o entendimento. Vejam que estou filtrando o documento 685 que possui duas linhas de registro, mas meu código só copia o primeira linha. Abaixo o código que estou usando

Set DB = CurrentDb()
Set rs = DB.OpenRecordset("Cancelados")
rs.AddNew
rs("Codigo") = Me.Codigo
rs("Produto") = Me.Produto
rs("Quantidade") = Me.Quantidade
rs("Valor_Unitario") = Me.Valor_Unitario
rs("Valor_Total") = Me.Valor_Total
rs("Data") = Me.Data
rs("Clientes") = Me.Clientes
rs("Documento") = Me.Documento
rs("forma_pagamento") = Me.forma_pagamento
rs("situacao") = Me.situacao
rs.Update
rs.Close
DB.Close

Olá Clemerson,

Porque não cria uma consulta acrescentar com os mesmos critérios de filtro?
Resolve numa linha de código.

Abraço