macro canc

Sub pulisci_1() 'cancella sommati

'ActiveSheet.Unprotect "123456"
  
 Range("A2:A15").Select
 Selection.ClearContents
  Range("A2").Select
  
'ActiveSheet.Protect "123456"

 End Sub

Sub pulisci_1() 'cancella sommati

    Dim x As Long
    'ActiveSheet.Unprotect "123456"
       
    For x = 15 To 2 Step -1
        If Range("A" & x) = "" Then Range("A" & x).Delete Shift:=xlUp
    Next x
    Range("A2").Select
    
    'ActiveSheet.Protect "123456"
 
End Sub

    Range("A2:A15").SpecialCells(xlCellTypeBlanks).Delete (xlUp)