[guldo76]

Meglio ancora, puoi controllare che il valore nella colonna "B" sia numerico.
Cmq ti ho lasciato entrambe le righe, vedi tu quale usare.
Comincia da B1 e si ferma alla prima cella vuota.

Sub pippo

For i = 1 To 65536
   If IsEmpty(Cells(i,2).Value) Then Exit Sub
   'If Cells(i,2).Value = "NP" Then
   If Not IsNumeric(Cells(i,2).Value) Then
      Rows(i).Delete
      i = i - 1
   End If
Next i

End Sub