Visual Basic - Exportacion de excel a Access

Sabe alguien alguna manera más automatica de hacer una exportación automatica de una tabla de excel a una tabla de access sin tener que ir fila por fila ni columna por columna. El documento de excel que tengo es muy amplio y no siempre debe tener el mismo número de filas con datos.

Solo quiero hacer un volcado de todos las filas que contienen datos.

gracias.

Un saludo a todos.

Ya lo he conseguido pero lo único que me falta es pasarle la contraseña a la BBDD. Alquien me puede decir como hacerlo????

'------------------------------------------------------------
' Macro1 ' Para volcar los datos de Excel en Access
'
'------------------------------------------------------------
Function Macro1()

On Error GoTo Macro1_Err

Dim oAccess As Object

Set oAccess = CreateObject("Access.Application")

oAccess.OpenCurrentDatabase ("C:\Desarrol\Gestión\Ges.mdb")

oAccess.Visible = False

DoCmd.TransferSpreadsheet acImport, 6, "Prueba", txtFichero_Path.Text, True

'Cerramos la base de datos y Access
oAccess.Application.Quit

Set oAccess = Nothing

Macro1_Exit:
Exit Function

Macro1_Err:
MsgBox Error$

End Function

ya esta solucionado.... Gracias de todas formas

Function Macro1()

On Error GoTo Macro1_Err

Dim oAccess As Object

Set oAccess = CreateObject("Access.Application")
'Pasamos contraseña a la bbdd
SendKeys (psPWDBD)
SendKeys ("{ENTER}")
oAccess.OpenCurrentDatabase ("C:\Desarrol\Gestión ITV\Ges_2005.mdb")
oAccess.Visible = False

DoCmd.TransferSpreadsheet acImport, 6, "Prueba", txtFichero_Path.Text, True

'Cerramos la base de datos y Access
oAccess.Application.Quit

Set oAccess = Nothing

Macro1_Exit:
Exit Function

Macro1_Err:
MsgBox Error$

End Function