Hola
Prueba con lo siguiente:
Dim ObjetoExcel as Excel.Application
Código:
ObjetoExcel.Visible=false
ObjetoExcel.Workbooks.Open Filename:= ruta
ObjetoExcel.Range("A65536").Select
ObjetoExcel.Selection.End(xlUp).Select
Ultima=ObjetoExcel.ActiveCell.Row
ObjetoExcel.ActiveWindow.Close
De esta forma obtienes la última fila (de la columna A) que contiene datos y lo guardas en la variable Ultima.
--Saludos--