00 16/05/2018 20:09
Ciao,
come posso modificare questa parte di macro: 

'----------------------------------------------------------------
'cancella tutto dopo l'ultima riga valida

 'Dim WS As Worksheet
 'Dim LastCell As Range
 'Dim LastCellRowNumber As Long

Set WS = Worksheets("dividi") 'nome foglio
ActiveSheet.Unprotect "123456"
With WS
    Set LastCell = .Cells(.Rows.Count, "A").End(xlUp) 'colonna A
    LastCellRowNumber = LastCell.Row
    Rows(LastCellRowNumber + 1 & ":" & Rows.Count).ClearContents
End With
'----------------------------------------------------------------


che cancelli dall'ultima riga in cui il valore è un numero.
Mi spiego.
Ora la macro cancella tutto dall'ultima riga della colonna A.
La modifica che chiedo è che cancelli dall'ultima riga della colonna A in cui non c'è un numero.
Esempio in A200 c'è 654332 in A201 c'è una parola da A201 cancella tutto.
Spero di essermi spiegato.
patrik
------------------
excel 2003 / 20007