Copy specific columns from one sheet to another
<p>I want to copy certain columns like A, B, H from one sheet to another and I copied this code to a module but I got a "run time error 9".</p>

<pre><code>Sub CopyColumnToWorkbook()
Dim sourceColumn As Range, targetColumn As Range

Set sourceColumn = Workbooks("sheet1.xlsm").Worksheets(1).Columns("A")
Set targetColumn = Workbooks("sheet2.xlsm").Worksheets(1).Columns("A")

sourceColumn.Copy Destination:=targetColumn
End 
</code></pre>

<p>I am working on data which has 55 columns and 453 rows. How could I copy alternate columns from one worksheet to another...example</p>

<p>I want only columns of 2010-2011 year. In my data..year 2010-2011 and year 2011-2012 are arranged in alternate basis like one column for April 2010-2011 and next column for April 2011-2012..again next column is for may 2010-2011 and next is may -2011-2012..and so on.</p>