i tried this code, its not work for me
Option Explicit
Sub copycolumn()
Dim wsSource As Worksheet, wsTarget As Worksheet
Dim wbSource As Workbook, wbTarget As Workbook
Application.ScreenUpdating = False
Set wsSource = wbSource.Sheets("Febious_Grand_Data")
Set wbTarget = Workbooks.Open(Filename:="C:\Users\Master_File.xls")
Set wsTarget = wbTarget.Sheets("BWS")
wsSource.Range("A:A,D:D,G:G,H:H").Copy
wsTarget.Paste ' The column A,D,G,H will be copied to column A,B,C,D in wbTarget
' Save and close wbTarget
wbTarget.Close True
End Sub
Bookmarks