Hi brazen234
Sub A()

Dim i As Double
For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
If IsNumeric(Cells(i, "A").Value) Then
Cells(i, "A") = "" ' This empty cell
'Rows(i & ":" & i).Delete Shift:=xlUp ' remowe rows
End If
Next i

End Sub

Regards yngve