Achar Última Linha com conteúdo

Pessoal, boa tarde a todos.
Procurei algo parecido no fórum, mas não encontrei
Tenho certeza que estou cometendo um erro ridículo, mas meus neurônios já pifaram

Quero achar a última linha com conteúdo no excel:


Set XLDoc = XLApp.Workbooks.Open("C:\Users\vinitol\Documents\Relatorio.xlsx")
XLDoc.RefreshAll

Set sh = XLDoc.ActiveSheet
Set XLDocLinha = sh.Cells(Rows.Count, "A").End(xlUp).Offset(0, 0).Row

Não há jeito, já tentei várias diferenciações.

ALguém pode me ajudar?
Desde já, obrigado!

Opa,
Tentei

Dim iUltimaLinha As Long

Set XLDoc = XLApp.Workbooks.Open("C:\User\vinitol\Documents\Relatorio.xlsx")
XLDoc.RefreshAll
iUltimaLinha = XLDoc.Activesheet.Range("A" & Rows.Count).End(xlUp).Row

Porém dá erro: Objeto é Obrigatório

Range("A1").End(xlDown).Offset(1, 0).Select

ou

"nao testei"

Sub PVazia()
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
Loop

End Sub