Count filled cells in a certain rows in each column

Question

I want to count filled cells from each column and from row 14 to 45. I'm using below code to find the count of filled cells in a fixed range but unable to check for each column as I'm unable to make 1st row in range type cells(row,column) format. Any help please.

Range("A14", Range("A14").End(xlDown)).Select
m = Selection.Rows.Count

Answer 1

Not sure I understand, but this will look at everything between A14 and the last filled cell in A:

msgbox worksheetfunction.counta(range("A14",range("A" & rows.count).end(xlup)))

If for several columns perhaps this?

Sub x()

Dim c As Long

For c = 1 To 10 'A to J
    MsgBox WorksheetFunction.CountA(Range(Cells(14, c), Cells(45, c)))
Next c

End Sub