Consulta SQL en excel 2007

Hola amigos:

Actualmente cuento con un código el cual quisiera adaptar a mis necesidades.  Por favor algún experto me puede dar una mano con esto.

Básicamente lo que necesito es que la consulta me indique en la celda B5 de la Hoja2 de Excel el último registro solo el campo llave de la tabla1.  De antemano mil gracias por cualquier ayuda, Saludos!!!

Sub escribirexcel()
    Dim cs As String
    Dim sPath As String
    Dim sql As String
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    sPath = ThisWorkbook.Path & "\datos.accdb"
    cs = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sPath & ";Persist Security Info=False;"
    Set cn = New ADODB.Connection
    cn.Open cs
    Set rs = New ADODB.Recordset
    With rs
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockOptimistic
    End With
    sql = "select * from tabla1"
    rs.Open sql, cn
    Range("C1").CopyFromRecordset rs
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
End Sub