Need VBA Code to copy multiple column from closed wbs to active sheet

any experts help on this?

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

This is based on your actual data layout, not by the column references in your description in post #1.

Sub test()
    Dim myDir As String, fn As String, s As String, x, cn As Object, rs As Object
    myDir = "C:\Users\Windows 10\Desktop\Orcles\y-23\": fn = "Master_File.xlsb"
    If Dir(myDir & fn) = "" Then MsgBox "File path is not correct", , myDir & fn: Exit Sub
    s = "'" & myDir & "[" & fn & "]header'!"
    With ThisWorkbook.Sheets("Febious_Grand_Data")
        .[a1].CurrentRegion.ClearContents
        .[a1].FormulaArray = "=max(if(" & s & "1:1<>"""",column(" & s & "1:1)))"
        x = .[a1]
        With .[a1].Resize(, x)
            .Formula = "=" & s & "a1"
            .Value = .Value
        End With
        Set cn = CreateObject("ADODB.Connection")
        Set rs = CreateObject("ADODB.Recordset")
        cn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & _
                myDir & fn & ";Extended Properties=""Excel 12.0;HDR=No;"""
        rs.Open "Select F6 & F23, Null, F6, F23, F24, F25, F26, F27, F28, F21, F17, Null, F30, " & _
                "F21, Null, Null, F30,Null, Null, Null, 1 From `Feliux_Data_Org$A2:AX`;", cn, 3, 3, 1
        .[a2].CopyFromRecordset rs
        Set cn = Nothing: Set rs = Nothing
    End With
End Sub

Thanks experts saved my day legend !!solved