Exporta datos de excel con macro a access

Me es grato saludarlo.
El motivo de mi presunta es la siguiente. Actualmente tengo un libro donde tengo aplicada varias rutinas donde el una hoja de calculo tengo la información como base de datos y así extraigo la información que requiero con fórmulas como "buscarv" pero lo que requiero hacer es en vez de exportalas a otra hoja exportarlas directamente a Access .
Pongo parte de la rutina que me funciona bien... Pero lo que deseo es pasarla a Access cada vez que aplique el botón de la macro. Y después de que necesite hacer consultas aplicar un botón y en la hoja 2 me importe la información que tienen access.
Gracias.
Ejemplo
With Worksheets("Hoja1")
    .Range("AB3:AR3").Copy
    .Range("AB4:AR4").PasteSpecial _
    Paste:=xlPasteValues _
    End With
T = Worksheets("Hoja1").Range("N1").Value
If T = 0 Then
X1 = Range("AA3").Value
Worksheets("Hoja2").Visible = True
'**********************************************
'Aquí empieza la captura de datos de las dotaciones
'**********************************************
Worksheets("Hoja2").Select
Range("E300").Select
Selection.End(xlUp).Select
col = ActiveCell.Column
ren = ActiveCell.Row
If ins = 0 Then
Worksheets("Hoja2").Unprotect Password:="supervisor1"
Cells(ren + 1, 5).Value = X1
Worksheets("Hoja1").Range("AB4:AR4").Copy _
Destination:=Worksheets("BD1").Cells(ren + 1, 6)