Saludos y gracias por este curso

No consigo saber porque me da un dato que no se esperaba y es en esta instrucción:

Sub LlenarFórmula()

Dim Hoja As Worksheet
Dim ÚltimaFila As Long

Set Hoja = ThisWorkbook.Sheets("Hoja1")

'ÚltimaFila = Hoja.Cells(Hoja.Rows.Count, "A").End(xlUp).Row

ÚltimaFila = Hoja.Cells(Hoja.Rows.Count, "A") -----> tal como esta me da 0


MsgBox ÚltimaFila

'Hoja.Range("C5:C" & ÚltimaFila).FormulaLocal = "=B5*1,16"


End Sub

 ÚltimaFila = Hoja.Cells(Hoja.Rows.Count, "A") -----> tal como esta me da 0  en el msgbox
 MsgBox ÚltimaFila

cuando debería de dar 1048576 como explicaba Sergio en el video

¿que es lo que ocurre? gracias anticipadas por la ayuda