vba Cancella Righe Con Cella Vuota o Non Numerica

'
Option Explicit
'
' vba Cancella Righe Con Cella Vuota o Non Numerica
'
Sub CancellaRigheConCellaVuotaoNonNumerica()
On Error GoTo errore
Dim quanterighe, contarighe, foglio, contenuto, colonnainput
Set foglio = Sheets(ActiveSheet.Name)
'
quanterighe = Range(foglio.UsedRange.Cells(foglio.UsedRange.Rows.Count, 1).Address).Row
colonnainput = InputBox("colonna da pulire", "scelta", "C")
'
contarighe = quanterighe
While contarighe > 2
      contenuto = Trim(foglio.Cells(contarighe, colonnainput).Value)
      If Len(contenuto) = 0 Then
         Rows(contarighe).Delete Shift:=xlUp
      Else
         If IsNumeric(contenuto) = False Then
            Rows(contarighe).Delete Shift:=xlUp
         End If
       End If
       contarighe = contarighe - 1
Wend
'
terminato:
GoTo esci
errore:
foglio.Cells(contarighe, colonnainput).Select
esci:
'
End Sub