Bom dia,

Precisa ser um pouco mais especifico, o valor de um campo e salvar em outra tabela? este valor está na célula ou esta em Userform?

Segue um modelo de Insert, neste modelo estou concatenando os textbox com as aspas para fazer o insert.
No sua explicação você pode fazer o insert na outra tabela após fazer o primeiro insert, antes de fechar a conexão com o Bd.

Sub Bd_InsertTblPerfil()
Application.ScreenUpdating = False
'Inserindo Candidatos na Base de Perfil
'realizando a perfilagem dos candidatos
'bdTalentos.accdb

Dim dbs As Database
Dim LocalBD As String, StrInsert As String

LocalBD = "Local onde esta o BancoDeDados"
Set dbs = OpenDatabase(LocalBD & "bdTalentos.accdb")

StrInsert = "INSERT INTO tbl_Perfil (txt_CPF,txt_Nome,txt_NivelCandidato,txt_1Perfil,txt_2Perfil,txt_3Perfil)" & _
" VALUES (""" & Form_PainelControle.TextBox2 & """,""" & Form_PainelControle.TextBox1 & """,""" & Form_PainelControle.ComboBox4.Value & _
""",""" & Form_PainelControle.ComboBox1.Value & """,""" & Form_PainelControle.ComboBox2.Value & """,""" & Form_PainelControle.ComboBox3.Value & """);"

dbs.Execute StrInsert
dbs.Close
Planilha4.Select
Selection.EntireRow.Delete
End Sub