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