Este exemplo simples, envia os dados para o banco access, veja se consegue adaptar a sua planilha.
E na plan1 há tambem um exemplo de consulta ao banco.

http://goo.gl/jpXUlD

Sub Conexao()
Dim cnx As ADODB.Connection, rs As ADODB.Recordset, cmd As ADODB.Command
Dim sql As String

Application.ScreenUpdating = False

With cnx
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=caminhodoarquivoseubancodedados.accdb;Persist Security Info=False;"
.Open "caminhodoarquivoseubancodedados.accdb"
End With

sql = "SELECT * ... sua cláusula sql

Set cmd = New ADODB.Command

With cmd
.ActiveConnection = cnx
.CommandText = sql
.CommandTimeout = 0
End With

Set rs = cmd.Execute
rs.Close
cnx.Close
End Sub