Hỏi về cách đếm trong visual basic (2 người xem)

[bicutit]

Chào các anh chị,
Em dùng record macro để ra được mấy cái lệnh in như ở bên dưới
ActiveSheet.Range("$A$3:$IU$841").AutoFilter Field:=15, Criteria1:="CHO"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
ActiveSheet.Range("$A$3:$IU$841").AutoFilter Field:=15, Criteria1:="MEO"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
ActiveSheet.Range("$A$3:$IU$841").AutoFilter Field:=15, Criteria1:= _
"HEO"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
ActiveSheet.Range("$A$3:$IU$841").AutoFilter Field:=15, Criteria1:="GA"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False


Nghĩa là em đã in được danh sách con chó, con mèo, con gà và con heo ở côt 15
Bây giờ em muốn sau khi in xong những cái trên thì máy tính tự động in ra được 1 trang giấy và trên trang giấy đó có ghi tổng số lượng chó, mèo, gà, heo mà máy tính vừa in xong ( ở cột 15 chẳng hạn)
Ví dụ:
Chó:
Mèo:
Gà:
Heo:

Anh chị nào giúp em với ạ, em xin cảm ơn,

 

[bicutit]

hịc, không có ai trả lời giùm, em đành record 1 cái nữa vậy
Nó được cái lệnh ntn
Range("C852").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(C[22],""CHO"")"
Range("C854").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(C[22],""MEO"")"
Range("C856").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(C[22],""RONG"")"
Range("C858").Select
ActiveCell.FormulaR1C1 = _
"=SUM(COUNTIF(C[22],""GA""),COUNTIF(C[22],""HEO""),COUNTIF(C[22],""CHUOT""))"


cho em hỏi có cái nào ngắn hơn cái lệnh bên dưới không ạ ( tính tổng số lượng gà, heo, chuột ở 1 cột)
Range("C858").Select
ActiveCell.FormulaR1C1 = _
"=SUM(COUNTIF(C[22],""GA""),COUNTIF(C[22],""HEO""),COUNTIF(C[22],""CHUOT""))"