Modification of the function CountIfs VBA

Thanks adyteo but this was a formuala in a cell in a excel so there should be ;.
I solved problem by declaring two new integer variables

Dim m As Integer
Dim n As Integer
m = Zakr1.Columns.Count
n = Zakr2.Columns.Count

and replacing Zakr1.Rows(i) by

Range(Zakr1.Cells(i, 1), Zakr1.Cells(i, 1).Offset(0, m))

and Zakr2.Rows(i) by

Range(Zakr2.Cells(i, 1), Zakr2.Cells(i, 1).Offset(0, n))

You can close thread. Thank you.