rollis13, 19/10/2021 09:06:Cambia questa parte della macro e vedi se ho capito bene la tua richiesta, così:'... With MiDato 'ActiveCell.EntireRow.Delete 'elimina riga intera Range(Cells(ActiveCell.Row, "B"), Cells(ActiveCell.Row, "K")).ClearContents 'elimina parziale End With '...
'... With MiDato 'ActiveCell.EntireRow.Delete 'elimina riga intera Range(Cells(ActiveCell.Row, "B"), Cells(ActiveCell.Row, "K")).ClearContents 'elimina parziale End With '...