Passing arguments in COUNTIF function

[abduljaleel.mca]

Hi,

I need to use countif function for column A15 to C15 to count the number of occurrences using macro but the following code is not working
I have data in 3 columns (A-C) up to 15 rows.

x=15
z=3

For i = 1 To x
Cells(i, 4).Select
ActiveCell.FormulaR1C1 = "=COUNTIF(R1C1:R&xC&z,&i)"
Next i

x and z values will change project to project so I need to pass this as an argument.

Please help me.