Sub cancella() Dim Ur As Long, X As Long Ur = Range("A" & Rows.Count).End(xlUp).Row For X = 2 To Ur If Not IsNumeric(Cells(X, 1)) Then Cells(X, 1) = "" ' oppure cancella 30 colonne>>> Range(Cells(X, 1), Cells(X, 30)) = "" End If Next End Sub