Подсчет заполненных ячеек в определенных строках в каждом столбце

Question

Я хочу подсчитать заполненные ячейки из каждого столбца и от 14 до 45 строки. Я использую приведенный ниже код, чтобы найти количество заполненных ячеек в фиксированном диапазоне, но не могу проверить для каждого столбца, так как я не могу сделать1-й ряд в формате диапазона cells(row,column).Любая помощь, пожалуйста.

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

Answer 1

Не уверен, что понимаю, но это будет смотреть на все между A14 и последней заполненной ячейкой в ​​A:

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

Если для нескольких столбцов возможно это?

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