Copiar dados excluído para outra tabela no banco

Caros,
Tenho uma planilha em Excel onde fiz um formulário e os dados são abastecidos em um banco de dados.

Quando excluir um registro do banco de dados gostaria de gravar os dados desse registro excluído em outra tabela no banco.

Como poderia estar fazendo isso?

Segue abaixo o código que uso para exclusão

Function Excluir_Imprensa()
'Excuindo Registro
Dim result As VbMsgBoxResult
result = MsgBox("Deseja excluir o(a) Responsável(a): " & Me.CB_Responsavel, vbYesNo, "Confirmação")

If result = vbYes Then
sql = "DELETE FROM TB_IMPRENSA"
sql = sql & " WHERE ID_IMPR = " & Txt_N_Registro
Set BD = New ADODB.Recordset
cx.Conect
BD.Open sql, cx.Conn
Set BD = Nothing
cx.Desconect
LblMensagem.Caption = "Registro excluído com sucesso."
End If
End Function

Boa tarde,

O código SQL tem sintaxe errada

Utiliza função para procedimento que não devolve nenhum resultado, devia fazer com procedimento (Sub...)

A minha sugestão era não ter segunda tabela, na tabela existente devia ter um campo de controlo

Se pretende fazer como que pefiu, coloque código de inserção de registo antes de executar a exclusão

If result = vbYes Then
Coloque aqui o código de inserção do registo na outra tabela
sql = "DELETE FROM TB_IMPRENSA"
sql = sql & " WHERE ID_IMPR = " & Txt_N_Registro
Set BD = New ADODB.Recordset