[Resolvido]Codigo para salvar Campos em outra Tabela

Galera preciso so uma ajuda aqui criei um Botão para salvar dados de uma formulário em outra Tabela deu tudo certo Só gostaria de Salva todos os campos de uma vez só clicando uma vez só tem como?
   
Private Sub Comando254_Click()
Dim bc As Database
Dim Cat_H_Fase1 As Recordset
Set bc = CurrentDb()
Set Cat_H_Fase1 = bc.OpenRecordset("Cat_H_Fase1")
Cat_H_Fase1.AddNew
Cat_H_Fase1!CE = Me.CE
Cat_H_Fase1!CD = Me.CD
Cat_H_Fase1!PI = Me.PI
Cat_H_Fase1!PD = Me.PD
Cat_H_Fase1!PI1 = Me.PI1
Cat_H_Fase1!PD1 = Me.PD1
Cat_H_Fase1!PI2 = Me.PI2
Cat_H_Fase1!PD2 = Me.PD2
Cat_H_Fase1!PI3 = Me.PI3
Cat_H_Fase1!PD3 = Me.PD3
Cat_H_Fase1!PI4 = Me.PI4
Cat_H_Fase1!PD4 = Me.PD4
Cat_H_Fase1!PI5 = Me.PI5
Cat_H_Fase1!PD5 = Me.PD5
Cat_H_Fase1.Update
End Sub

Bom dia...

Pode ser mais claro em tua duvida ? Pelo que vi, o código que postou está fazendo isso, salvando !!

No aguardo.