Sub Macro1()
    ' ' Macro1 Macro
    ' ' Scelta rapida da tastiera: CTRL+t '
    Selection.Cut
    Workbooks.Add
    ActiveSheet.Paste
    Windows("Articoli da considerare - Ecosys.xlsx").Activate
    Selection.Delete Shift:=xlUp
End Sub