countif until last row

Hi,

I want to use SUMIF and COUNTIF until last row.
The SUMIF function works nicely but I get 'application-defined or object-defined error' on the COUNTIF function.

LastRow = Cells(Rows.Count, "A").End(xlUp).Row

Range("AE1").Select
ActiveCell.FormulaR1C1 = "Cur PO activity"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Formula = _
"=IF(SUMIF($H$2:$H$" & LastRow & ",$H2,AD$2:AD$" & LastRow & ")>0,""Y"",""N"")"
ActiveCell.Offset(-1, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "# of docs/PO"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=COUNTIF($H$2:$H$" & LastRow & ",$H2)"

What did I wrong in the last line?

Thanks very much.

It works. I will use code tags next time, sorry.