Access VBA - Insert

Boa noite amigos,

Eu estou separando alguns registros de uma tabela no Access. Preciso fazer isso via VBA.

O Codigo corre registro por registro e faz varia verficiação. Se o registro passa por todas esta verificações em tão sua linha e copiada em uma outra tabela que possui os mesmo campos.

Tentei da forma abaixo imaginando que o addnew fosse equivalente a um append que eu usava com o delphi, mas tb não deu certo. Existe como colocar uma função que funcione como o Append onde que crio registro, adciono o valor dos campos e salvo?

Set prg = Form_frmAtualiza.ProgressBar1.Object

Set db = CurrentDb()

strSql = "SELECT * FROM Unilever_allcases"

Set rs = db.OpenRecordset(strSql)

rs.MoveFirst

For intMes = 0 To 12

 strSql = "SELECT * FROM [PPR - Abertos (On Time) 1]"

 Set rsPPRopen = db.OpenRecordset(strSql)

 rsPPRopen.AddNew

 For iCont0 = 0 To rsPPRopen.Fields.Count - 1

 For iCont = 0 To rs.Fields.Count - 1

 If rsPPRopen.Fields(iCont0).Name = rs.Fields(iCont).Name Then

 rs.Fields(rsPPRopen.Fields(iCont).Name) = rs.Fields(iCont).Value

 Exit For

 End If

 Next iCont

 Next iCont0

 

 Next intMes

 rs.Update

 rsPPRopen.Update