Sub CopiaColonna() Sheets("Foglio2").Columns("A:A").Copy Sheets("Foglio1").Select Columns("B:B").Select ActiveSheet.Paste End Sub