Application.worksheetfunction.counta(range

 ›  Application.worksheetfunction.counta(range