Se vuoi contare le righe totali di un foglio excel in vb fai così:
codice:
Dim objXls As Excel.Application
Dim objXlsWkb As Excel.Workbook
Dim objXlsWks As Excel.Worksheet
Set objXls = New Excel.Application
Set objXlsWkb = objXls.Workbooks.Open("C:\MioFile.xls")
Set objXlsWks = objXlsWkb.Sheets(1)
MsgBox (objXlsWks.Rows.Count)
Set objXlsWks = Nothing
objXlsWkb.Close
Set objXlsWkb = Nothing
objXls.Quit
Set objXls = Nothing
In vba sarà più o meno la stessa cosa
Attenzione però questo conta tutte le righe del worksheet non mi sembra esista qualcosa per contare solo le righe scritte realmente.
Io farei un ciclo per vedere quelle scritte e quelle no con il range.value