Delete non-numeric entries

[T De Villiers]

I am trying to create a condition so that if the first character in a cell is not a number, then delete the entire row

For i = 400 To 10 Step -1
If Left(Cells(i, 2), 1) <> .... (*) Then
left(cells(i,2),1).entirerow.delete
Next

can't figure out what to insert where the * is

Thanks

[royUK]

Use IsNumeric like this

Dim i As Long
For i = 400 To 10 Step -1
If Not IsNumeric(Left(Cells(i, 2), 1)) Then Cells(i, 1).EntireRow.Delete
Next

[T De Villiers]

Thank you - very helpful