>>756
こんな感じでは
With Worksheets("Sheet1")

.Columns("A:A").Copy Destination:=ThisWorkbook.Worksheets("Sheet2").Columns("A:A")
End With