Addieren vor dem Druck....

In einer Tabelle habe ich folgenden Code.
Pfad = ThisWorkbook.Path
Dim Datum1 As Date
Dim Datum2 As Date
Dim strTemp As String
strTemp = InputBox("Geben Sie das Anfangsdatum ein:", "Anfangsdatum")
If strTemp <> "" And IsDate(strTemp) Then Datum1 = strTemp
If strTemp = "" Then Exit Sub
strTemp = InputBox("Geben Sie das Enddatum ein:", "Enddatum")
If strTemp <> "" And IsDate(strTemp) Then Datum2 = strTemp
Sheets("Dossier Versand").Activate
Range("A2").Select
If Not ActiveSheet.AutoFilterMode = True _
Then Range("A2").AutoFilter
Range("A2").Select
Selection.AutoFilter Field:=1, Criteria1:=">=" & _
CDbl(Datum1), Operator:=xlAnd, _
Criteria2:="<=" & CDbl(Datum2)
Range("A2").Select
ActiveCell.CurrentRegion.PrintOut
ActiveSheet.AutoFilterMode = False
End Sub

Nun möchte ich, dass beim ausgedruckten Batt automatisch angegeben wird, wieviel Datensätze vorhanden sind in auf diesem Ausdruck.

Das Total ist ja kein Prob zum addieren. Blos wie stelle ich es an, dass er mir sagt wieviel Datensätze das vorhanden sind an Hand des ausgesuchten Datums?

Kann mir jemand sagen, wie ich den obigen Code ergänzen muss?

Herzlichen Dank

Iris