buscar celda vacia

[Invitado CSI1981]

Buenos días

Tengo esta macro que cumple con el resultado que estoy buscando, pero necesito hacerle una modificación y no se cómo

 

Sub UltimaFila_3()

On Error Resume Next

MsgBox ActiveSheet.Columns("A").Find("*", _

searchorder:=xlByRows, searchdirection:=xlPrevious).Row

End Sub

 

Lo que busco es que el valor obtenido no sea en un botón sino que el resultado obtenido pueda verse en una celda específica

 

Desde ya muchas gracias al que pueda ayudarme

Slds

[Antoni]

Range("B1")= ActiveSheet.Columns("A").Find("*", searchdirection:=xlPrevious).Row