macro copy paste

Hello max_max,

Try it as follow:

Sub copia_articolo ()

  Application.CutCopyMode = False

'------------------------------------------------- -----------------------
     ActiveCell.Select

     Selection.Copy
    
     Sheets ( "Sheet1"). Activate 

   UltimaRiga = Range ( "A" & Rows.Count) .End (xlUp) .row
Cells (UltimaRiga + 1, 1) .Select

Selection.PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks _
: = False, Transpose: = False
'------------------------------------------------- -----------------------

  Application.CutCopyMode = False 
 
end Sub

Regards.