'Debes referenciar en el editor de VBA la referencia DAO
'y logicamente sustituir los nombres de las tablas
'origen y destino así como el nombre real de los campos

Function Josep()
 Dim RstOrigen As DAO.Recordset, RstDestino As DAO.Recordset
 Dim IntContador As Integer
 Set RstOrigen = CurrentDb.OpenRecordset("TablaOrigen")
 Set RstDestino = CurrentDb.OpenRecordset("TablaDestino")

 With RstOrigen
  If .EOF = False And .BOF = False Then
   .MoveLast
   .MoveFirst
   While Not .EOF
    With RstDestino
     For IntContador = 1 To RstOrigen("Cantidad")
      .AddNew
      !Codigo = RstOrigen("Codigo")
      !Descripcion = RstOrigen("Descripcion")
      .Update
     Next
    End With
    .MoveNext
   Wend
  End If
 End With
 RstOrigen.Close
 RstDestino.Close
 Set RstOrigen = Nothing
 Set RstDestino = Nothing
End Function