Hombre, si los campos no coinciden... entonces no te queda más remedio que trabajar "a pedal"...
Código:
Campo1 = Presupuestos.Fields("Campo1")
Campo2 = Presupuestos.Fields("Campo2")
Campo3 = Presupuestos.Fields("Campo3")
...
Facturas.AddNew
Facturas.Fields("NomCamp1") = Campo3
Facturas.Fields("NomCamp2") = Campo1
Facturas.Fields("NomCamp3") = False
Facturas.Fields("NomCamp4") = Campo2
...
Facturas.Update Espero habértelo explicado de forma inteligible...
Desde luego, lo que no puedes hacer de ninguna forma es
For n = 0 to Presupuestos.Fields("Importe"). Piénsatelo un poco...