If you want a pure VBA sub, something like this
I only had 1000 orders in my test but it finished 'at once'
Option Explicit
Const cThreshhold As Long = 10
Sub CountDates()
Dim rDates As Range, rDate As Range
Dim aCounts() As Long
Dim iDateMin As Long, iDateMax As Long
Dim i As Long, n As Long
Set rDates = ActiveSheet.Cells(2, 2)
Set rDates = Range(rDates, rDates.End(xlDown))
iDateMin = Application.WorksheetFunction.Min(rDates)
iDateMax = Application.WorksheetFunction.Max(rDates)
ReDim aCounts(iDateMin To iDateMax)
For Each rDate In rDates.Cells
n = rDate.Value
aCounts(n) = aCounts(n) + 1
Next
n = 0
For i = LBound(aCounts) To UBound(aCounts)
If aCounts(i) >= cThreshhold Then n = n + 1
Next i
MsgBox "There were " & Format(n, "#,##0") & " dates with more than " & cThreshhold & " orders"
End Sub
No real error checking, It assumes that the date column really does have dates from row 2 to N, i.e. not blank and a real date