De excel a access

Hola Juan Carlos:

El siguiente ejemplo ilustra lo que buscas. Para que el
procedimiento funcione debes antes instalar por
referencias del editor de VBA la librería DA0 3.5 O 3.6,
dependiendo la versión de Office utilizada.

Espero que te sea de ayuda.

Sub CargaReg()

Application.ScreenUpdating = False

'Nombre de Archivo de Access
Set BD = OpenDatabase(ThisWorkbook.Path
& "\Balances.mdb")

'Nombre tabla a donde va la información
Set Reg = BD.OpenRecordset(Name:="Balance1",
Type:=dbOpenDynaset)

With Reg
.AddNew
.Fields("Sucursal").Value = Range("A1")
.Fields("Cuenta").Value = Range("B1")
.Fields("Ramo").Value = Range("C1")
.Fields("Producto").Value = Range("D1")
.Fields("Subproducto").Value = Range("E1")
.Fields("Descripción").Value = Range("F1")
.Fields("Saldo Inicial").Value = Range("G1")
.Fields("Debe").Value = Range("H1")
.Fields("Haber").Value = Range("I1")
.Fields("Saldo Final").Value = Range("J1")
.Update
End With

BD.Close

End Sub