VBA Excel: Como encontrar el numero de filas utilizadas.

En la propiead UsedRange hay que agregar ya sea rows o columns.Count:

Sub contarFilas()

MsgBox ThisWorkbook.Sheets("Sheet1").UsedRange.Rows.Count

End Sub