Identificar a última linha preenchida numa planilha excel

Buenas!

Tenho uma planilha excel com informações baseadas em Access2003, que são adicionadas ao longo do mês.
A função para exportação dos dados eu já tenho (aqui do fórum:By JPaulo ® Maximo Access), e a uso para outras planilhas.

Porém, agora preciso exportar sempre para a mesma planilha, que vai acumulando até o fim do mês. Então preciso, antes, saber qual é a última linha preenchida na planilha, para que as informações a serem acrescidas o sejam a partir da linha seguinte.

Obrigado.

Você pode usar a linha de cógido abaixo.

troque o Valor 1 do comando Cells(Rows.count, 1) pela coluna que vc quer contar

Código:

UltimaLinha = Cells(Rows.Count, 1).End(xlUp).Row + 1

Buenas!
Achei este código do MC Feba, adaptei, e usei em conjunto com o do João Paulo. Agradeço aos dois.
Function ImportaUltimaLinha(strPastaImportado As String)
On Error GoTo ErrHandler

Dim oExcel As Excel.Application
Dim oWkb As Excel.Workbook
Dim oWks As Excel.Worksheet
Dim oRng As Excel.Range
Dim strSQL As String
Dim lngLinha As Long
Dim db As DAO.Database
Dim rst As DAO.Recordset

'Abre o Excel
Set oExcel = CreateObject("Excel.Application")
Set oWkb = oExcel.Workbooks.Open(strPastaImportado)

'Abre a tabela de destino
Set db = CurrentDb

strSQL = "SELECT * FROM SuaTabela" 'tabela access onde ficara gravado a linha o excel
Set rst = db.OpenRecordset(strSQL)
Set oWks = oWkb.Worksheets("NomeDaPlanilha") 'Nome da aba da planilha a ser importada

'Percorrer as linhas da planilha
lngLinha = 2

Do Until oWks.Cells(lngLinha, 1) = Empty 'O 1 representa a coluna onde o valor esta
If lngLinha = lgnLinha - 1 Then
rst.AddNew
rst!CampoDaTabela = oWks.Cells(lngLinha, 1).Value
rst.Update
End If
lngLinha = lngLinha + 1
Loop

oWkb.Close
oExcel.Quit
rst.Close

ExitHere:
Set oWkb = Nothing
Set oExcel = Nothing
Set oWks = Nothing
Set db = Nothing
Set rst = Nothing
Exit Function

ErrHandler:
If Err = 1004 Then
MsgBox "Arquivo não encontrado", vbOKOnly
Resume ExitHere
End If
Resume ExitHere
End Function