counif v sumproduct

is there any differnce in countif and sumproduct ?

also can anyone help in simplyfying the code below

ActiveCell.Offset(0, 2).Range("A1").Select
Selection.FormulaArray = _
"=SUM(IF('[manuCSCBTB1.xls]1'!R2C9:R1000C9=""timothyHINCHEY"",IF('[manuCSCBTB1.xls]1'!R2C5:R1000C5=""RE-WORK"",1,0),0))"
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.FormulaArray = _
"=SUM(IF('[manuCSCBTB1.xls]1'!R2C9:R1000C9=""timothyHINCHEY"",IF('[manuCSCBTB1.xls]1'!R2C5:R1000C5=""NO CALLS"",1,0),0))"
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.FormulaArray = _
"=SUM(IF('[manuCSCBTB1.xls]1'!R2C9:R1000C9=""timothyHINCHEY"",IF('[manuCSCBTB1.xls]1'!R2C5:R1000C5=""SECONDMENT"",1,0),0))"
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.FormulaArray = _
"=SUM(IF('[manuCSCBTB1.xls]1'!R2C9:R1000C9=""timothyHINCHEY"",IF('[manuCSCBTB1.xls]1'!R2C5:R1000C5=""HOLIDAY"",1,0),0))"
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.FormulaArray = _
"=SUM(IF('[manuCSCBTB1.xls]1'!R2C9:R1000C9=""timothyHINCHEY"",IF('[manuCSCBTB1.xls]1'!R2C5:R1000C5=""OBJECTIVE FREE"",1,0),0))"
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.FormulaArray = _
"=SUM(IF('[manuCSCBTB1.xls]1'!R2C9:R1000C9=""timothyHINCHEY"",IF('[manuCSCBTB1.xls]1'!R2C5:R1000C5=""MATERNITY"",1,0),0))"
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.FormulaArray = _
"=SUM(IF('[manuCSCBTB1.xls]1'!R2C9:R1000C9=""timothyHINCHEY"",IF('[manuCSCBTB1.xls]1'!R2C5:R1000C5=""LEFT"",1,0),0))"
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.FormulaArray = _
"=SUM(IF('[manuCSCBTB1.xls]1'!R2C9:R1000C9=""timothyHINCHEY"",IF('[manuCSCBTB1.xls]1'!R2C5:R1000C5=""ILL"",1,0),0))"
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.FormulaArray = _
"=SUM(IF('[manuCSCBTB1.xls]1'!R2C9:R1000C9=""timothyHINCHEY"",IF('[manuCSCBTB1.xls]1'!R2C5:R1000C5=""OTHER"",1,0),0))"

ActiveCell.Offset(0, 6).Range("A1").Select
Selection.FormulaArray = _
"=SUM(IF('[manuCSCBTB1.xls]1'!R2C9:R1000C9=""timothyHINCHEY"",IF('[manuCSCBTB1.xls]1'!R2C11:R1000C11=""Y"",1,0),0))"

ActiveCell.Offset(0, 8).Range("A1").Select
ActiveCell.FormulaR1C1 = "manuCSCBTB1.xls"

http://www.xldynamic.com/source/xld....T.html#classic