Sub copia_articolo() Sheets("data_base").Unprotect "123456" copia = ActiveCell.Value UltimaRiga = Sheets("data_base").Range("A" & Rows.Count).End(xlUp).Row Sheets("data_base").Cells(UltimaRiga + 1, 1) = copia Sheets("data_base").Protect "123456" End Sub