This method will introduce a VBA Macro to count cells containing dates in a specific range in Excel.

Step 1: Open the Microsoft Visual Basic for Applications window with pressing the Alt + F11 keys at the same time.

Step 2: Click the Insert > Module, and then paste the following VBA code into the Module window:

VBA: Count if cells contain any date

Function TypeCell(pRange As Range) As Variant

Dim xArr() As Variant
Dim xRng As Range
Application.Volatile
ReDim xArr(pRange.Cells.Count - 1) As Variant
xCount = 0
For Each xRng In pRange
xArr(xCount) = VarType(xRng)
xCount = xCount + 1
Next
TypeCell = xArr
End Function

Step 3: In a blank cell enter the formula =SUM(IF(TypeCell(A1:E15)=7,1,0)), and then press the Ctrl + Shift + Enter keys in a meantime.

Note: In the formula of =SUM(IF(TypeCell(A1:E15)=7,1,0)), the A1:E15 is the specific range we will count number of cells containing dates, you can change it based on your needs.

Now you will get the number of cells containing dates in the specific range.

Easily select and count any date cells if dates are between two dates in Excel

If you have Kutools for Excel installed, you can apply its Select Special Cells utility to quickly select and count any date cells if dates are in a certain date range.

The COUNTA function will help you figure out the number of cells with any data in a specific range in Excel easily.

In a blank cell enter the formula =COUNTA(A1:E15), and press the Enter key. In the formula, the range A1:E15 is the specific range you will count numbers of cells with data, and you can change it as you need.

Note: After selecting the specific range, we can get the cell number with any data in the Status Bar easily too.

If you have Kutools for Excel installed, you can apply its Select Nonblank Cells utility to count and select cells if contains any data quickly in a certain range with only one click.

And then all cells with data in the specified range are selected, and a dialog box will pop up and show how many nonblank cells have been selected. See screenshot:

Click the OK button to close this dialog box.

How to count if cell does not contain text in Excel?

How to count cells if contain X or Y in Excel?

How to Countif by date/month/year and date range in Excel?

How to Countif filtered data/list in Excel?