I am using the following code to copy and paste data from one sheet
to another sheet. My requiremnet is thus as follows:
Want to copy the col C of active sheet to target sheet I want to
copy and paste the entire row for those cells in col C having
numbers only. (To skip those rows which contain 0 or text)

The code is:
Sub test()
Dim r As Range, n As Long
n = 2
With ActiveSheet
For Each r In .Range("c3", Range("c" & Rows.Count).End(xlUp))
If IsNumeric(r.Value) * r.Value <> 0 Then
r.EntireRow.Copy Sheets("stmt").Rows(n)
n = n + 1
End If
Next
End With
End Sub

But the code is not running and showing as error message at this
line:

Run time error 13, Type mismatch
If IsNumeric(r.Value) * r.Value <> 0 Then