Pasting a worksheet function in VBA.

[Jako]

Could someone please tell me how to paste a Worksheet Function into
cell in VBA.

For example this formula.

=SUM(IF(FREQUENCY(UNRng,UNRng)>0,1))

Also for data running form "A2" down to the last entry in the column
need to set this range as UNRng. Please also tell me how i can achiev
this in VBA.

The data is on a Workbook called "Closures" and the worksheet i
"Sheet1".

Thanks in advance

 

[Tom Ogilvy]

set rng = Range(Cells(2,1),Cells(2,1).End(xldown))
sform = " =SUM(IF(FREQUENCY(UNRng,UNRng)>0,1))"
Range("C9").FormulaArray = application.Substitute(sform,"UNRng",rng.Address)