Sub 〇〇カウント()
' 変数の宣言
Dim 日付 As Long
Dim 集計 As Long
Dim 集計2 As Long
集計 = WorksheetFunction.CountIfs(Range("A:A"), Date, Range("B:B"), "熊")
集計2 = WorksheetFunction.CountIfs(Range("A:A"), Date, Range("B:B"), "犬")
For 日付 = 1 To Cells(Rows.count, 1).End(xlUp).Row
If Sheet2.Cells(日付, 1) = Date Then
Sheet2.Cells(日付, 3) = 集計
Sheet2.Cells(日付, 4) = 集計2
End If
Next
End Sub