Suponiendo un archivo de access llamado combinar2.mdb que esta en la misma carpeta que tu archvio de excel, con una tabla datos con 4 campos: Nombre, sexo, direccion, edad, y suponiendo un acrhcio de excel con una hoja con los mismo 4 campos, colocamnos esto en un modulo 'normal' del excel.
Rem Codigo tomado de:
Rem
http://www.erlandsendata.no/english/...badacexportado
Rem Usado y modificado por Abraham Valencia
Sub exportaraccess()
Dim cn As ADODB.Connection, rs As ADODB.Recordset, n As Long
Dim nfila As String
'creamos la coneccion
Set cn = New ADODB.Connection
'arbrimos el archvio access
cn.Open "provider=microsoft.jet.oledb.4.0; " & "data source=" & ThisWorkbook.Path & "\Combinar2.mdb;"
'creamos el recorset
Set rs = New ADODB.Recordset
'abrimos la tabla
rs.Open "Datos", cn, adOpenKeyset, adLockOptimistic, adCmdTable
'recorremos las filas empezndo de la 2 y vamos agregandolos en la tabla access
n = 2
Do While Range("a" & n) <> Empty
With rs
.AddNew
.Fields("Nombre") = Range("a" & n).Value
.Fields("Sexo") = Range("b" & n).Value
.Fields("Direccion") = Range("c" & n).Value
.Fields("Edad") = Range("d" & n).Value
End With
n = n + 1
Loop
'cerramos la tabla y el access
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
Abraham