VBA to Copy Entire column from Workbook A to Workbook B

[slapshock]

Hi Guys, i need help for a vba to copy an entire column from Workbook A except for the 1st row ( excluding blank cell) to another workbook, let say workbook B.
Workbook A has many sheets in which I need to copy specific column from each Sheets. and paste it to Workbook B.

Option 1 is Workbook A is open.
Option 2 is Workbook A is closed.

Thanks in advance

 

[ranman256]

In Wb.A, copy column N from every sheet in Wb.A
to every sheet in Wb.B?
does Wb.B has the same # sheets as Wb.A?

 

[slapshock]

In Wb.A, copy column N from every sheet in Wb.A
to every sheet in Wb.B?
does Wb.B has the same # sheets as Wb.A?

Wb.A would be the source file with many sheets. but Wb.B will only have 1 sheet

 

[ranman256]

paste the code into a module in your PERSONAL workbook so it can run from any excel wb.
open both wb: A & B
select col in A you want to copy,
run: copyMycol

Sub copyMycol()
Dim wbSrc As Workbook, wbTarg As Workbook
Dim sCol As String
Dim iCol As Integer, i As Integer
Set wbSrc = ActiveWorkbook
For Each wbTarg In Workbooks
  If wbTarg.Name <> wbSrc.Name And InStr(wbTarg.Name, "PERSONAL") = 0 Then Exit For
Next
sCol = Mid(ActiveCell.Address, 2)
i = InStr(sCol, "$")
sCol = Left(sCol, i - 1)
Columns(sCol & ":" & sCol).Select
Selection.Copy
wbTarg.Activate
Range(sCol & "1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range(sCol & "1").Select
Selection.ClearContents
Set wbSrc = Nothing
Set wbTarg = Nothing
End Sub