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