Delete rows with a number in column A

How do I delete only the rows that have a number in column A?

try:

Sub m()
Dim i As Long

For i = Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1
If IsNumeric(Cells(i, "a")) Then
c.EntireRow.Delete '===> deletes entirerow
'Cells(i, "a").Delete shift:=xlUp '====> deletes only cells in column A
End If
Next

End Sub

Thanks, but I am getting the runtime error 424: object required?

Which line returns the error? Works fine for me.

Myles