[Resolvido]Transportar vários registros de uma tabela para apenas um em outra tabela

Boa tarde galera!
gostaria de ajuda neste codigo ou dica no procurar. Estou querendo adicionar registros da tabela A para a tabela B. na tabela A os registros sao varias linhas ai gostaria de adicionar para a B so mente em uma linha por funcionarios este codigo que adpatei adiciona em varias linhas veja

Código:

Dim RS As DAO.Recordset, RS1 As DAO.Recordset, I As Integer, iCamposTdf As Integer, strfiltro As String, FUNCIONARIOS As String, OPERACAO As Integer
Dim db As DAO.Database, db1 As DAO.Database
Set db = CurrentDb()
Set db1 = CurrentDb()
Set RS = db.OpenRecordset("SELECT * FROM RELATORIODIARISTAHORARIOS WHERE DIA >= #" & Format(Forms![DIALOGOFOLHA]![DataDeInício], "mm/dd/yyyy") & "# And dia <= #" & Format([Forms]![DIALOGOFOLHA]![DataDeTérmino], "mm/dd/yyyy") & "#")
Set RS1 = db1.OpenRecordset("CONTROLEDIARISTAS") 'Abre tbl_Parcelas

        With RS
        If Not .EOF Then
        .MoveFirst
        iCamposTdf = RS.Fields.Count - 1
        For I = 0 To iCamposTdf
        Do Until .EOF
        FUNCIONARIOS = RS!Funcionario
        If IsNull(DLookup("Funcionario", "CONTROLEDIARISTAS", "Funcionario = FUNCIONARIOS")) Then
        OPERACAO = DLookup("[OPERACAO]", "CONTROLEDIARISTAS", "FUNCIONARIO = FUNCIONARIOS")
        strfiltro = "OPERACAO=" & OPERACAO & ""
        RS1.Edit
        RS1.FindFirst "RS1!OPERACAO =" & strfiltro
        RS1.Edit
        If (RS!SEQ = 3) Then
        RS1!TERÇA1 = RS("MANHA")
        RS1!TERÇA2 = RS("TARDE")
        RS1!TERÇA3 = RS("VALORTOTAL")
        End If
        If (RS!SEQ = 4) Then
        RS1!QUARTA1 = RS("MANHA")
        RS1!QUARTA2 = RS("TARDE")
        RS1!QUARTA3 = RS("VALORTOTAL")
        End If
        If (RS!SEQ = 5) Then
        RS1!QUINTA1 = RS("MANHA")
        RS1!QUINTA2 = RS("TARDE")
        RS1!QUINTA3 = RS("VALORTOTAL")
        End If
        If (RS!SEQ = 6) Then
        RS1!SEXTA1 = RS("MANHA")
        RS1!SEXTA2 = RS("TARDE")
        RS1!SEXTA3 = RS("VALORTOTAL")
        End If
        If (RS!SEQ = 7) Then
        RS1!SABADO1 = RS("MANHA")
        RS1!SABADO2 = RS("TARDE")
        RS1!SABADO3 = RS("VALORTOTAL")
        End If
        Else
        RS1.AddNew
        RS1!Funcionario = RS!Funcionario
        If (RS!SEQ = 2) Then
        RS1!SEGUNDA1 = RS!MANHA
        RS1!SEGUNDA2 = RS!TARDE
        RS1!SEGUNDA3 = RS!VALORTOTAL
        End If

        End If

      RS1.Update
    .MoveNext
    Loop
    Next I
End If
End With
    RS1.Close
    Set RS1 = Nothing ' Libera memória
    RS.Close
    Set RS = Nothing ' Libera memória
   

DoCmd.OpenReport "CONTROLEDEDIARISTA", acViewPreview
DoCmd.RunCommand acCmdZoom100

Sair_Comando16_Click:
    Exit Sub

Os dados que estou querendo adicionar sao informacoes da semana do funcionario Exemplo:
tabela A
funcionario|manha|tarde|total|dia
----------------------------------
JOSE MARINALDO BRAGA DE LIMA 08:18:35 12:26:29 15:23:15 22:02:47 2 R$ 35,00
--------------------------------------------
JOSE MARINALDO BRAGA DE LIMA 08:22:15 12:35:52 15:43:03 18:14:20 5 R$ 26,00
----------------------------------------------
JOSE MARINALDO BRAGA DE LIMA 08:25:04 12:36:02 15:43:18 18:30:48 7 R$ 26,00
----------------------------------
gostaria que ficasse assim
tabela B
FUNCIONARIO SEGUNDA1 SEGUNDA2 SEGUNDA3 TERÇA1 TERÇA2 TERÇA3 QUARTA1 QUARTA2 QUARTA3 QUINTA1 QUINTA2 QUINTA3 SEXTA1 SEXTA2 SEXTA3 SABADO1 SABADO2 SABADO3
JOSE MARINALDO BRAGA DE LIMA 08:18:35 12:26:29 15:23:15 22:02:47 35,00 08:22:15 12:35:52 15:43:03 18:14:20 35,00 08:25:04 12:36:02 15:43:18 18:30:48 26,00

Segunda1, Segunda2, etc... são campos na tabela B?

Como identifica por semana os registros na tabela A?


Se puder disponibiliza a parte do BD para que possamos ver...


Cuprimentos.

resolvir criando subconsultas e uma consulta obrigado pela atenção de voces

O Fórum agradece o Retorno.