Mensaje enviado por YAMIL BRACHO <BRACHOY@pdvsa.com>

Saludos Hector y Alejandro.
El siguiente codigo hace lo que ustedes quieren:

Sub Macro1()
 Dim wrk As Worksheet
 Dim intFila As Integer

 Set wrk = Worksheets("Hoja1")
 wrk.Select
 Selection.SpecialCells(xlCellTypeLastCell).Select
 intFila = ActiveCell.Row
End Sub

La ultima fila con datos queda en la variable intFila.

Espero esto les ayude

Yamil