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
non si può copiare celle unite in una cella singola, però si può ricavare il dato della cella unita e metterlo nella cella singola