Type mismatch

[aman1234]

Hi All

I am getting Type mismatch at the following line of code. ANy help would be much appreciated.

For i = 1 To 64
If ws.Cells(i, "M") <> 0 Then
ws.Cells(i, "Q").FormulaR1C1 = "=sum(" & ws.Cells(i, "Z") / ws.Cells(i, "M") & ")"
end if
next i

Thanks