Excel pesquisar ultima linha de base de dados do access

[Miguelriedel]

Boa tarde, criei a planilha para ler um xml e enviar para o access

acontece que preciso subtituir essa parte do codigo para executar na tabela do access

 

Dim shtXml      As Worksheet

	Set shtXml = ThisWorkbook.Worksheets(1)
    
    i = shtXml.Range("A1048576").End(xlUp).Row + 1

 

Alguém tem alguma sugestão??

 

anexo abaixo planilha, base de dados e arquivo xml exemplo

Base do acces deve ser armazenada em desktop

Lembrar de referenciar a biblioteca "Microsoft XML, v3.0" e "Microsoft ActiveX Data Objects 6.1 Library"

Desktop.rar