VBA - Transpor dados de acordo com uma condição/filtro

Olá a todos!

Estou com uma dúvida, que acredito que somente resolverá via VBA, porém não consegui construir um código pra ela (usei vários if's e sem sucesso) e não encontrei solução parecida no fórum.

Os dados são inseridos em um subform (que está dentro em um form).
O código deveria "ler" o setor que os dados foram inseridos e "transpor" estes dados pra tabela do setor referente.



Será feito em tabelas separadas, pois preciso dos dados para passar pro sistema por outra macro que criarei.
Alguém tem ideia de como o VBA faz isso? Minhas tentativas de if e for já esgotaram rs
Agradeço desde já
(arquivo está em anexo)

Amigo, a decisão de separar os dados em tabelas distintas deve ser feita com base única e exclusivamente pela normalização dos dados.
Separar os dados em tabelas diferentes com a justificativa de que precisa exportar determinados dados é o prenúncio de uma tragédia.
Sugiro fazer um estudo melhor de como ficarão organizados os dados no seu banco antes de partir para a programação.
A solução para seus problemas podem ser bem mais simples do que você imagina, porém, se seu banco de dados estiver normalizado.

Se eu entendi você quer fazer acréscimo em duas tabelas com base no setor

eu colocaria no salvar ou sair e faria da seguinte forma

Dim rs as recordset
set rs = currentdb.openrecordset("Coloca sua consulta com o codigo e o setor")

faz uma consulta pra validar se ja existe estes registros nas tabelas caso exista exclua para gerar as atializações

rs.movefirst
for i = 1 to rs.recordcount
if rs("setor") = "Setor1" then
'coloca consulta acrecimo com base no codigo e setor1
elseif rs("setor") = "Setor2" then
'coloca consulta acrecimo com base no codigo e setor2
end if

rs.movenext
next